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ASI ES EL QL, 
HECHO PARA NOSOTROS 



SENCILLO 


ASEQUIBLE PROFESIONAL 



Para los profesionales que necesitamos un 
lee lado en nuestro idioma. QL nos ofrece 
en castellano, su QWERTY standar de 65 
ledas móviles 

Para los que deseamos comunicarnos a 
gran velocidad y capacidad con nuestro 
ordenador QL nos presenta su lenguaje 
5UPER BASIC 


Para los que deseamos tener perfecta¬ 
mente ordenada nuestra agenda de tra¬ 
baje presupuestos fichas de productos, 
nuestra cor res pona encía, estadísticas de 
venta archivo QL viene dotado de cuatro 
microdrives totalmente mieracü vados entre 
si QL QU1LL de Tratamiento de Textos. 
QL ARCHIVE Base de Datos. QL ABACUS 
Hoja Electrónica de Cálculo y el QL EA- 
£EL para realización de codo tipo de grá¬ 
ficos 


Para los que necesitamos gran margen 
operativo ahora disponemos de un orde¬ 
nador con memoria ROM de 32K que con¬ 
tiene el sistema operativo QDQS. un sis¬ 
tema mono-usuario muíti-tarea y con 
partición de tiempo 


ALGUNAS DE LAS CONFIGURACIONES MAS USUALES 


CL 
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vff'— f? MFiM Vf 

MONITOR MCNCCKCMCr 

w ^ vto mt np 

- wri -* - r ‘■IMPRESORA 

PVP 73.500 PTS 

, 

PVP 35 750 PTS PVF i 49 750 PTS 

PVP 145 750 PTS PVP 193 750 PTS 
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Dibujando la realidad 

Va*fe 

J rucos 

c programación 

Mhn 

Ordago a la grande 



ANO II 


ACTUALIDAD. El IVA liega y, la. informática r l.as casas de 
software hacen guerra de o redos. 


GRAUCOS (INTERACTIVOS* Iniciamos ur 

a explicar los funcionamientos matemáticos de los gráficos 
generados por ordenador. 


JUEGOS. Nuestra habitual sección de comentarios está 

dedicada este mesa dos estrellas recién aparecidas. El 
FAÍRLIGHT de la nueva casa THE EDGE y el RGHTJN G 
W ARRIOR, secuela del famoso EXPLODING FI5T > 
realizado por la misma casa, MELBQURN E HOU5E. 


CODIGO MAQl INA, El capítulo cinco de e 

adcnlra en los manejos de las subruíinax, potentes útiles de 
programación. 



T EVO OPERATIVO PARA EL SPECTRl M, 

Acabamos de describir las rutinas que componen esta 
ampliación al BASIC de la máquina. Con esto nuestros lectores 
amantes del código máquina ya pueden acabar el ensamblado 
del programa. 


TRUCOS DE PROGR AM ACION EN BASIC I.a ROM del 

£X Spectrum ofrece muchas más posibilidades de lasque 
normalmente se explican en íos manuales y libros de 
programación. En este articulo se explican algunos de estos 
trucos, lo que permite realizar los programas mucho mas 
fácilmente. 


QL M AGAZINE. En la segunda parte de los gráficos en 

SuperBasic explicamos el manejo de colores y el uso de la 
_ recursividad. También vemos el QL por dentro, con una 
| descripción de cada uno de sus componentes. 





PflUSED 

3 


EL C ORCHO. Nuestra habitual sección de intercambio entre 
los lectores ha aumentado su tamaño hasta ocupar toda una 
igina. Esto se debe a la gran aceptación que ha tenido. 




LIBROS, Comentamos un libro de iniciación al BASIC y un 

avanzado texto sobre manejo de gráficos. 


40 


PROGRAMAS, Este mes las páginas de nuestra r 

ocupadas en gran parte por un estupendo programa de mus, 
aunque también queda espacio para un sencillo procesador de 
textos que, aunque está hecho en BASIC, ofrece posibilidades 
realmente impresionantes. 


ES 


PREGUNTAS V RESPUESTAS. 






Ahora que ya estarnos 

pió de un nuevo ano íteg dedicarse a nuestro querido ordena- 
el trabajo o en los estudios y ^ cflrWiS ofrecemos un juego 

dor. Para los amantes de losju g nove dad, una nueva serte 
castizo, el mus. las delicias de los progra- 

dedicada a los gráficos grácil Estacar el último articulo dedica- 
madores aficionados, Tambté desm^^ ha diseñado. Es- 

do al nuevo del año 1986 os guste y que la re- 

S5& h colaboración de todos. 
































































ACTUALIDAD 

rio En 1 a mayor i a 

10 RE ” F d ¿ ?ol C lTslr^To r ll^^^^^ no 

st-ss'Aí 1 “’-»£f ,¿r B nss“--- 1,lcos 

para él; aunque esperamos que n 

,,av>ra de precios en el 

20 REM Se avecina una autentica g fabricantes de programas 
20 software: Por lo vi«« 1°» e stin decididos a 

"° I^o” lltVol ^o^ue basaba,ta^Un ejemplo 

es SERMA, que a primeros ttraütivo precio de 2.500 
paquetes de programas al 

pesetas * 

Esta noticia se debe en 

30 REM Las ventas del QE .pectaculár bajada de precios que 
gran parte a la e s E e ®^“ Esp eremos que esto 
sufrid hace algunos _ esta potente maquina, 
potencie las ventas de esta f 

- <=1 Mercado Comán los 

40 REM Con la entrada de d ores"y otros productos 

SSiS^ríSr.: £sin 

rquenos 0r qurestén S pensando en comprarse un Spectrum 
128 están de enhorabuena. 




























Paseo de Gracia, 11 - Esc. 2.o 4.a 


Tel. (93) 318 24 53 - 08007 Barcelona 




Alimentación Ininterrumpida 9.750 

No se pierde la información por corle de luí o bajada de 
Tensión 1 30h.de autonomía 
Recarga automática 

Digifalizador de Imágenes 
P-1024 35.000 

Dignaba cualquier imagen impresa y la introduce en el or¬ 
denador donde se puede tratar. ¡Tramar, mezclar, situé' 
tear etc.J Muy fácil de usar 

* OFERTA ESPECIAL 

Impresora + Interface Centronics + 

Context V.8 + Copy Grises 72.000 


NOVEDADES PIN 


Al comprar esta versión abonamos 3 000 -ptas por cual¬ 
quier versión anterior 

Context V.7* 4.000 

T raiamiento de T ex tos 

Funciona con cualquier impresora 

Cassette y/o microdnve 64 col en pantalla e impresora 

Context V.8* 4.000 

Nueva versión Acentos graves y agudos. 

Copy en alta resolución. Versiones para Seikosha SP-80Q, 
SP-1 000 y Riteman F+ 

Adaptador SITI-CONTÉXT 2.000 

Permite pasar información de! SITI al CONTEXT 

M.D.S. -Sistema Operativo para 
Microdríve 7.000 

Conjunto de nuevos comandos BASIC que permiten Ac¬ 
ceso Aleatorio a Ficheros en Microdrive con un tiempo 
medio de acceso de 4 segundos 

CONTABILIDAD PIN* 3.000 

Plan contable 200 cuentas, 2000 asientos 

Hasta 9 000 000 000 Balance con activo-pasivo, cta re 

soltados Utiliza el SOMOS 

Cualquier impresora 80 col. 

Kit Utilidades Discovery 1 2.000 

10 utilidades CAT extendido. ON ERROR. Set de caracte¬ 
res del Amstrad, etc. 

* Disponible en disco para Discovery 1 al precio de 
5.000'-pías. 


AJUSTE DE CABEZALES 
CASSETTE 2.500 

SINTETIZADOR DE VOZ 3.000 

MULTI-COPVS [Copys desde 2 cm. hasta 
70 cm.) 3.000 

COPY GRISES (F+, SP-800, 

SP-1000, GP-550) 2.500 

COPY RS 232 2.500 

COPY SERIE RITEMAN F+ 2.500 


Fotografía digitalizada y pasada a impresora con el 
Copy de Grises. 


HARDWARE 


Discovery 1 + Kit utilidades 

55.000 

■ — 

Discos 3 V 2 ri 

800 

— 

Cable impresora Discovery 

3,500 


Interface monitor 

3.900 


Interface sonito TV 

3.500 

_ 

Interface Centronics 

8.000 

— 

Lápiz óptico + Sistema de dibujo 

4.850 


Teclado Saga 1 

Impresora R iteman F + 

11.000 

— 

(Centronics) * 

Impresora S-P 1000 

69.000 

— 

(Centronics) 

74.900 

_ 

Monitor CIAEGI F. Verde 

24.000 

— 

Monitor CI AEGI F. Ambar 

24.750 

— 


TIENDA AL PUBLICO EN BARCELONA 

PEDIDOS POR CORREO O TELEFONO 

Envíos contra reembolso a toda España 
200ptas. gastos de envió 
En tu domicilio en 3-4 dias 



♦ ■■■ * * 

Enviar a: PIN. P. D de Gracia. 11, Esc.C. 2 o 4" -G80G7 Barcelona 

Nombre ____ 

Dirección ___ 

Población __ _ _____ 

Pedido _______ 




































Gráficos interactivos 

¿Estamos ante el arte del futuro?, es posible que así sea. El avance experimentado en el 
mundo de los gráficos por ordenador es impresionante, pero la metodología científica 
utilizada en su desarrollo logra que no sea un campo vedado exclusivamente a seres 
supersensibles, y que todo programador pueda obtener resultados brillantes, estéticamente 
hablando, incluso con el Spectrum. 



El ioystick es el periférico de entrada más conocido, aunque no por sus aplicaciones de 
diseño gráfico, sino en los juegos. 


ntendemos por Gráficos por 
Ordenador, o «Computer 
Graphics» a la disciplina o 
técnica que abarca la pro¬ 
ducción de imágenes gráfi¬ 
cas con la ayuda de un ordenador. 
Esta definición es muy general y 
amplia, pero el campo de trabajo 
que permiten alcanzar los ordena¬ 
dores en cuanto a materia de gráfi¬ 
cos es prácticamente ilimitado, y 
la evolución que está experimen¬ 
tando esta técnica o arte es escalo¬ 
friante. Uno de los inventos re¬ 
cientes más populares es el de los 
videojuegos, y un ejemplo de estos 
es el Ping Pong. que aunque ahora 
nos resulta muy simple, y por qué 
no decirlo, obsoleto, hace muy 
poco tiempo nos dejaba boquia¬ 
biertos. Los simuladores de vuelo, 
ya asequibles hasta en el Spectrum 
y con una gran calidad, hace una 
década hubieran resultado impen¬ 
sables. 

¿Quién no se ha maravillado con 
las modernas películas de guerre¬ 
ros espaciales? Esas imágenes son 
gráficos producidos por un orde¬ 
nador, que es capaz de simular 
todo tipo de luces, sombras, bri¬ 
llos, transparencias, explosiones, 
saltos al hiperespacio. planetas, en 
fin, realidades futuras que hemos 
empezado a vivir gracias a los estu¬ 
dios de una serie de programadores 
y matemáticos que la tecnología 
digital ha experimentado en estos 
últimos treinta años. 

Otro ejemplo diario de aplica¬ 
ción de gráficos por ordenador lo 
tenemos en los titulares de televi¬ 
sión que se mueven y voltean so¬ 
bre la pantalla y que también están 
controlados por un ordenador. 
Para nosotros estos gráficos son los 


pasivos, sólo podemos actuar 
como receptores, no tenemos acce¬ 
so a modificarlos, son técnicamen¬ 
te llamados «Gráficos no Interacti¬ 
vos». En contraposición, llama¬ 
mos «Gráficos Interactivos» a 
aquellos en los que los usuarios 
pueden controlar dinámicamente 
las imágenes a producir, el conte¬ 
nido. colores, etc. 

Los gráficos Interactivos envuel¬ 
ven una doble vía de comunica¬ 
ción entre el usuario y el ordena¬ 
dor. El ordenador recibe señales 
desde un dispositivo de entrada y 
reacciona lo más rápidamente po¬ 
sible, instantáneamente para la 
percepción del usuario, esta res¬ 
puesta llega al usuario a través del 
dispositivo de salida empleado ge¬ 
nerando o no una contrarrespuesta 
por parte del usuario que cierra el 
bucle. Este es el esquema generali¬ 
zado más simple que explica la 
forma en la que se establece el diá¬ 


logo entre programador o usuario 
con el ordenador. 

La importancia de este campo 
no sólo está en los videojuegos. Los 
gráficos por ordenador tienen una 
aplicación importantísima en la 
industria. El diseño de circuitos 
electrónicos digitales, por ejemplo, 
es muy complejo y un ordenador 
puede facilitarlo enormemente, 
permitiendo incluso que puedan 
ser verificados por el ingeniero so¬ 
bre el propio plano utilizando pro¬ 
cedimientos de simulación. Los ar¬ 
quitectos pueden «visualizan» los 
resultados de sus diseños con pers¬ 
pectivas cambiantes de manera 
mucho más rápida. Los urbanistas 
y expertos en tráfico pueden simu¬ 
lar situaciones y ver cómo se pue¬ 
den solucionar. Los ordenadores 
nos pueden crear un mundo que se 
puede comportar como el nuestro 
y sobre el que podemos experi¬ 
mentar cualquier tipo de problema 


I 




por ordenador 



Una alternativa barata del tablero 
digit atizador es el lápiz óptico. Aunque no 
permite resolución tan amplia. 


o de solución y «ver» los efectos 
que producimos sin necesidad de 
crearlos realmente. 

La historia 

Pero, ¿cómo surgió todo esto? 
Como todo en esta vida, c! desa¬ 


rrollo de estas técnicas ha requeri¬ 
do muchos años de investigación y 
estudio. En los años cincuenta se 
realizó el primer dispositivo gráfi¬ 
co controlado por ordenador, era 
un osciloscopio conectado al 
Whirlwind I del Massaehusets Ins- 
titute for Technologie (MIT) y fue 
utilizado para generar dibujos sim¬ 
ples. Durante esta década los gráfi¬ 
cos interactivos hicieron pequeños 
progresos porque los ordenadores 
de este período no eran utilizados 
para estos fines sino que se limita¬ 
ban a ser «comedores de números» 
que permitían realizar cálculos a 
físicos y a ingenieros aeronáuticos 
para diseñar misiles. AI final de la 
década se desarrollaron los MIT 
TX 0 y TX 2 que hicieron factibles 
los gráficos interactivos con lo que 
el interés en este campo creció rá¬ 
pidamente. 

El hecho que produjo el gran 
boom en este campo fue la tesis 
doctoral de Ivan E. Sutherland en 
1962 titulada «Sketch pad: A man 
machine graphical conimunica- 
tion systern» que era un paquete de 
programas que probaron a muchos 
lectores que el campo de los gráfi¬ 
cos interactivos era variable, utili- 
zable y apasionante. 

En la década de los sesenta se de¬ 
sarrollan grandes trabajos en este 
campo, en particular se desarrolló 
el CAD cuyas siglas significan «di¬ 
seño asistido por ordenador», en 
empresas como General Motors. 
Bell Telephone. y Lockheed Air- 
craft, y comenzó la edad de oro 
que hoy disfrutamos. 

Las utilizaciones actuales más 
importantes en gráficos interacti¬ 
vos son: representación de datos y 
resultados científicos, económicos, 
financieros, estadísticos... carto¬ 
grafía, animación y simulación, 
etc. En general cualquier progra¬ 
mador que quiera realizar progra¬ 
mas impactantes sobre el usuario 
debe recurrir al uso de gráficos in¬ 
teractivos, ya que ahora no basta 


con los ordenadores «comenlime¬ 
ros». 

El hardware 

Los gráficos interactivos por or¬ 
denador requieren un soporte físi¬ 
co en el que realizarse, terminal de 
visual i zación. salidas en papel y 
entradas interactivas. A todos estos 
dispositivos se Ies denomina hard¬ 
ware y vamos a describir los dispo¬ 
sitivos actualmente existentes pa¬ 
rándonos especialmente en los que 
tenemos asequibles para el Spee- 
trum. 

En los sistemas de hardware po¬ 
demos diferenciar entre las salidas 
gráficas y las entradas interactivas. 

Dentro de las salidas gráficas, la 
más usual es el tubo de rayos cató¬ 
dicos CRT. en cualquiera de sus 
formas, ráster, refresco, almacena¬ 
miento, etc. Un esquema clásico 
de un sistema gráfico interactivo 
basado en el CRT puede ser el si¬ 
guiente. El ordenador va conecta¬ 
do a una unidad de proceso de vi- 
sualización. también llamado 
DPU (Display Processing Unit) 
que es como otro ordenador espe¬ 
cializado, con su propia memoria 
la mayor parte de las veces, que 
acepta una serie de comandos y 
ejecuta una serie secueneial de ins¬ 
trucciones, tales como trazar un 
segmento, dibujar un carácter... 
Hay dos formas en las que la DPU 
trabaja, el «randon sean» con el 
cual se accede a cada punto des¬ 
pués de hacer un barrido línea a lí¬ 
nea de toda la pantalla. 

El modo «random sean» es tam¬ 
bién llamado vectorial y el «ráster 
sean » es llamado simplemente 
ráster y es el que implementa el 
Spectrum y por ello vamos a ha¬ 
blar un poco más de él. 

Los terminales ráster necesitan 
una memoria auxiliar donde alma¬ 
cenar los datos de la imagen, aun¬ 
que en el Spectrum la memoria no 
es auxiliar ya que no se dispone de 





Gráficos interactivos por ordenador 


un «coprocesador» sino que es el 
mismo microprocesador Z80 el 
que se encarga de realizar el traba¬ 
jo de la DPU. La memoria se codi¬ 
fica como una matriz de puntos en 
la que un cero significa blanco y 
un uno significa punto. La imagen 
se repite un número determinado 
de veces, que oscila entre 30 y 60 
veces por segundo. Esta codifica¬ 
ción puede ser rehecha para au¬ 
mentar determinadas informacio¬ 
nes de brillo o color aunque en el 
Spectrum no se contempla esta po¬ 
sibilidad. Terminales ráster de 
hasta 1.024 x 1.024 puntos son ac¬ 
cesibles con relativa facilidad pero 
terminales de más puntos ya tie¬ 
nen problemas de refresco, es decir 
de falta de velocidad para que se 
mantenga la luminosidad del pun¬ 
to durante el tiempo que dura el 
barrido del resto de la pantalla. 
Por ahora este problema es crítico 
ya que si utilizamos pantallas de 
fósforos muy persistentes el borra¬ 
do seria dificultoso. 

Los terminales ráster se abara¬ 
tan de manera creciente, se permi¬ 
ten además colores, niveles de gri¬ 
ses. etc., y se consiguen imágenes 
mucho más realísticas. El nivel de 
complejidad de la imagen no in¬ 
crementa el parpadeo (lo que era el 
inconveniente más grave de los 
terminales vectoriales), permite 
borrados parciales, etc., por eso se 
han convertido en los terminales 
más usados en poquísimo tiempo y 
no resulta una frivolidad el decir 
que están de moda en esta década. 

Las posibles alternativas CR I 
son los «Plasma Panels» en los 
que cada pixel consiste en una cel¬ 
dilla de gas con unos electrodos 
que pueden ser puestos a cero o a 
uno aplicando una tensión a los 
electrodos que no excedan o exce¬ 
dan a un determinado nivel crítico 
respectivamente. Estos terminales 
son de brillo atractivo, general¬ 
mente rojo y negro que permiten 
redes de alrededor de 1.000 x 1.000 


puntos y que ya están en el merca¬ 
do. 

Los terminales de cristal líquido, 
comunes en los relojes digitales, 
pueden ser dispuestos en forma de 
matriz y constituir un terminal 
ráster pixel por hit. Con diodos 
LED pueden obtenerse configura¬ 
ciones similares. 

Antes de abandonar estos tipos 


muy utilizadas para microordena¬ 
dores definiendo ios caracteres 
como matrices de puntos, estas im¬ 
presoras son las llamadas «APA», 
A11 Point Adressible. es decir, con 
acceso a cualquier punto, que per¬ 
miten su utilización como ráster 
utilizando sus mismos algoritmos, 
e incluso creando niveles de gris 
con técnicas de «haljioning». 



Kl koala Pad es una atractiva versión de un tablero digitali/ador de bajo precio y puede 
considerarse como uno de los dispositivos más útiles para realizar dibujos. 


de sistemas gráficos con terminales 
ráster debemos decir que próxima¬ 
mente veremos el funcionamiento 
del Spectrum como salida gráfica 
al estudiar el funcionamiento de la 
memoria gráfica, del ULA. etc. 

Otro tipo de salidas son las no 
interactivas, que son las impreso¬ 
ras. los plotters, e incluso otras más 
sofisticadas que producen films c 
incluso hologramas. 

Las impresoras fueron utilizadas 
en principio de modo gráfico para 
obtener dibujos de escasa calidad y 
precisión. Funcionan de modo si¬ 
milar al ráster y con técnicas de so¬ 
breimpresión se pueden obtener 
tonos de gris. Actualmente son 


Los plotters son dispositivos que 
se asocian a tipo vectorial, normal¬ 
mente son de plumilla y son los 
dispositivos que dibujan los pla¬ 
nos. 

Dispositivos de entrada 

Los dispositivos de entrada son 
los que permiten al usuario intro¬ 
ducir las órdenes, relacionadas con 
la imagen, en el sistema. Hay mu¬ 
chos tipos de dispositivos que per¬ 
miten esta introducción de órdenes 
por lo que sólo nos vamos a limitar 
a enumerarlos y dar una breve des¬ 
cripción de funcionamiento. Loca- 




















! izado res. permiten indicar una 
posición o una dirección sobre la 
imagen del terminal gráfico, entre 
ellos citaremos: 

— Las tabletas digital i zadoras. 
que consisten básicamente en una 
superficie plana sobre la que se 
mueve un cierto apuntador, que 
puede ser una lupa con cursor o un 
lápiz, y a veces algunas teclas. Si el 
sistema está equipado con un lá¬ 
piz. cuando este es apretado contra 
la superficie plana la localización 
de este punto es transmitida al or¬ 
denador marcando o borrando di¬ 
cho pixeí. Si el sistema mueve una 
lupa con cursor se suelen utilizar 
las teclas para transmitir su posi¬ 
ción. En aplicaciones interactivas 
gráficas, es normal el transponerla 
superficie plana a la pantalla y re¬ 
presentar como un aspa la posi¬ 
ción del cursor sore la visualiza- 
ción gráfica sobre la que estamos 
trabajando. Se emplea comúnmen¬ 
te en cartografía, medicina, etc. El 
ratón, o «motise», actualmente 
está de moda y sistemas de este 
tipo están empezando a aparecer 
para el Spectrum. Este es un dispo¬ 
sitivo manejado manualmente por 
el usuario y mediante el cual pode¬ 
rnos mover un cursor sobre la pan¬ 
talla visualÍzadora. El movimiento 
es detectado por medio de unos ro¬ 
dillos que llevan acoplados unos 
potenciómetros, la tensión sobre 
estos potenciómetros es digitaliza¬ 
da y así se determina la magnitud y 
sentido del movimiento. El auge 
de los sistemas tipo ratón es muy 
importante y de hecho hay una 
empresa que ha lanzado su último 
ordenador recientemente y que la 
campaña de publicidad que han 
realizado ha consistido en decir 
que lleva incorporado un ratón (el 
Apple Macintosh). 

— Los «trackbaüs» son unos 
dispositivos que consisten en una 
esfera que el usuario puede hacer 
girar sobre su centro en cualquier 
dirección. Al girar la esfera me¬ 


diante unos potenciómetros y de 
manera similar al ratón detecta los 
movimientos del cursor y los re¬ 
produce sobre la pantalla. Este sis¬ 
tema está cayendo en desuso ya 
que aunque sea muy preciso para 
pequeños movimientps es muy 
lento para grandes desplazamien¬ 
tos. por ello los joysiicks están 
ocupando este espacio. 

— Los «joysiicks» que son sim¬ 


ios gráficos 
interacti vos 
por ordenador 
requieren un soporte físico 
(Hará n a re) 


pie mente una palanca que puede 
moverse según cuatro u ocho di¬ 
recciones según el modelo. El mo¬ 
vimiento puede ser detectado me¬ 
diante unos potenciómetros de 
manera similar al ratón o de cual¬ 
quier otra manera. Hay dos tipos 
de joysiicks, los de posición abso¬ 
luta y los de posición incremental. 
El de posición absoluta coloca el 
cursor a lo aito de la pantalla 
cuando se mueve hacia adelante, y 
lo sitúa en la parte inferior de la 
pantalla cuando se mueve hacia 
atrás. El posícionamicnto es muy 
rápido y por consiguiente muy di¬ 
fícil de apuntar. El joyslick incre¬ 
menta! es como su propio nombre 
indica de funcionamiento incre¬ 
menta!, es decir, que a partir de la 
posición que ocupa dependiendo 
de hacia dónde desplacemos la pa¬ 


lanca moveremos el cursor. Ac¬ 
tualmente ha surgido un joyslick 
híbrido que mediante una tecla 
puede funcionar o como absoluto 
o como incremental conjugándose 
asi las ventajas. Para los Spectrum 
tenemos bastante variedad de joys¬ 
iicks en el mercado. 

— Otro tipo de entrada interac¬ 
tiva muy sofisticado es la Tableta 
Digital i zadora Tridimensional 
cuyo funcionamiento es idéntico 
al de la bidimensional pero en lu¬ 
gar de detectar la posición median¬ 
te tensiones sobre potenciómetros 
utiliza ondas sónicas. 

— Los «selectores» son disposi¬ 
tivos con los que. mediante un lá¬ 
piz luminoso podemos seleccionar 
una opción entre varias que se 
muestran en la pantalla. Estos sis¬ 
temas están pensados para que el 
diálogo interactivo sea más senci¬ 
llo y no se requiera personal espe¬ 
cializado para realizar un trabajo 
más sencillo. 

— Los sistemas de «Elección 
Numérica» son aquellos en los que 
seleccionamos un número entero 
positivo y se usa para elegir entre 
varias opciones en las que cada 
una tiene asignado un número. El 
sistema que permite la elección 
puede ser cualquiera aunque lo 
más normal es utilizar el teclado. 
El teclado es utilizado cuando que¬ 
remos que la entrada sea una «ca¬ 
dena de caracteres». Un ejemplo 
muy sencillo de este tipo de entra¬ 
da es cuando durante la ejecución 
del programa se nos presenta si 
queremos hacer algo y nos piden 
que contestemos «Sí o No». 

— Lo más impresionante den¬ 
tro del campo de las entradas inte¬ 
ractivas lo constituyen los recono¬ 
cedores de voz. que aunque hoy es¬ 
tén un poco alejados de la utiliza¬ 
ción práctica constituyen una po¬ 
sibilidad futura muy a tener en 
cuenta. 








FIGHTING WARRIOR 


Distribuidor: Erbe 
Memoria requerida: 48 K 
Precio: 2.100 ptas. 
--- 

Trasladados al antiguo Egipto 
nos encontramos con la maldad de 
un Faraón que haciendo uso del 
gran poder de que dispone ha se¬ 
cuestrado a una pricesa joven e in¬ 
defensa. Ante esta situación nos 
ofrecemos voluntarios para ir a 
rescatarla, sin más defensa que una 


espada y ciertos objetos abandona¬ 
dos en el desierto con poderes má¬ 
gicos, pero que no siempre nos ha¬ 
rán bien y que debemos averiguar 
cómo utilizarlos. 

Los peligros más importantes 
que se nos presentan son unos ani¬ 
males mitológicos, mitad hombres 
mitad dioses, que nos supondrán 
un serio obstáculo, impidiéndonos 
el paso. Además de estos tendre¬ 
mos que tener cuidado con unas 
enigmáticas flechas que debemos 
evitar si no queremos ver merma¬ 



Nosol ros manejamos el 
luchador situado a la 
izquierda y debemos 
matar a todos los 
enemigos que nos 
surjan. 


Una situación no 
demasiado extraña: Los 
dos oponentes mueren 
s i multáneam ente. 



das nuestras fuerzas. Nosotros dis¬ 
ponemos de una fuerza marcada 
en la parte inferior de la pantal la, 
debajo de nuestro guerrero, que 
vamos perdiendo a medida que re¬ 
cibimos los golpes, aunque des¬ 
pués de cada combate recupera¬ 
mos un poco, dependiendo del 
tiempo que tardemos en derribar 
al contrario. El punto de partida es 
el desierto, que tendremos que 
atravesar sí queremos llegar al 
templo donde se encuentra la prin¬ 
cesa y donde nuestros problemas 
aumentarán de forma considera¬ 
ble. 

Los guerreros son de un gran ta¬ 
maño lo que permite que sq defini¬ 
ción gráfica sea bastante buena y 
que tengan unos movimientos cla» 
ros y atractivos, aunque con el in¬ 
conveniente de que son un poco 
lentos y resulta difícil controlar el 
tiempo en el que van a reaccionar. 
El juego encierra una gran dificul¬ 
tad, resultando más difícil derribar 
contrarios cuanto más avances en 
él, aunque al utilizar los objetos 
abandonados en el camino correc¬ 
tamente, te será mucho más fácil 
alcanzar el objetivo. 


Control: Teclado, cursor, 
Joystick. 

Jugadores: Uno. 

Gráficos: Notables aunque 
el movimiento no es todo lo 
rápido que uno quisiera. 

Nivel de dificultad: Au¬ 
menta según los contrarios 
derribados, y la proximidad 
al objetivo. 

Originalidad: La originali¬ 
dad del juego reside básica¬ 
mente en la manera que tie¬ 
nen los guerreros de luchar, 
que es de un realismo espec¬ 
tacular. 

Conclusión: Es este un jue¬ 
go emocionante que no resta 
interés hasta que consigues el 
objetivo, cosa que no te será 
nada fácil sin alguna prácti¬ 
ca. 


- 

































FAIRLIGHT 


Distribuidor: ABC 
Memoria requerida: 48 K. 
Precio: 2.300 pías. 


A primera vista te parecerá un 
juego como todos, pero éste difiere 
de los demás en que no te marca el 
objetivo a seguir, eres tú quien re¬ 
corriendo e investigando en la de¬ 
pendencias del castillo debes des¬ 


cubrir su misterio. Quizás esto te 
lleve mucho más tiempo del pre¬ 
visto pero no te desanimes, valdrá 
la pena buscar. 

El juego está realizado en tres di¬ 
mensiones y fue diseñado con una 



La pantalla de presentación del juego es una 
auténtica maravilla de detalles y colores. 



La sala del trono, 
en la que nuestro 
héroe se enfrenta a 
un enemigo al que 
no puede derrotar. 


de ias más avanzadas técnicas de 
programación desarrolladas hasta 
el momento, que le da gran realis¬ 
mo y claridad a los gráficos y mo¬ 
vimientos de nuestro héroe. 

El juego se desarrolla en el inte¬ 
rior de un castillo de la Edad Me¬ 
dia, cuya salas o lugares estratégi¬ 
cos están defendidos por guardia¬ 
nes armados, gigantes o fantasmas 
que tratarán de proteger el miste¬ 
rio, combatiendo contigo si inten¬ 
tas pasar. 

Esparcidos por todo el castillo se 
encuentras objetos dispares como 
llaves, comida, sacas de dinero, re¬ 
lojes de arena, etc., que podrás 
guardar en cada uno de los cinco 
bolsillos que tienes o utilizarlos si 
lo consideras preciso. 

El sistema de vida que utiliza es 
distinto a los demás juegos conoci¬ 
dos; en este dispones de 99 vidas 
que irás perdiendo con bastante ra¬ 
pidez cuando seas atacado. Aun¬ 
que también podrás recuperarlas 
utilizando algunos de los objetos 
que encuentres, todos ellos tienen 
una utilidad específica que deberás 
averiguar, aunque algunos no son 
lo que aparentan. 


Control: Teclado o joys- 
tick. 

Jugadores: Uno. 

Gráficos: Diseñados con 
una avanzada técnica en 
3-D, con una buena defini¬ 
ción y colorido muy visto¬ 
so. 

Nivel de dificultad: Bas¬ 
tante elevado. 

Originalidad: Muy origi¬ 
nal. Quizás este programa 
abra paso a una nueva eta¬ 
pa en la estructura de los 
videojuegos. 

Conclusión: En este jue¬ 
go no es sólo ímprescindi-. 
ble la habilidad de manejo 
del joystick o teclado, si no 
también es necesaria la ha¬ 
bilidad intelectual. 












































que todos terminan en RET. Ello es 
debido a que los programas que escri¬ 
bimos y que llamamos por medio del 
RANDGMIZE USR xxxx, son consi¬ 
derados como subrutinas por la propia 
ROM del SpectruiTL que los llama por 
medio de un CALL y por tanto la vuel¬ 
ta se hace con RET, 

Un ejemplo de aplicación de las su¬ 
brutinas es el listado que publicamos 
en la figura I. Este realiza la misma 
suma de dieciséis bits que %imos en el 
capitulo anterior pero usando subruti¬ 
nas, de modo que las sumas byte a byte 
se hacen siempre en el mismo sitio. 

El proceso detallado se puede dividir 
en dos bloques. En primer lugar vea¬ 
mos la subrutina. Esta coge el byte al 
que apunta IX y le suma el contenido 
de IX+2 más el acarreo; almacenando 
el resultado en IX+4 y devolviendo el 
control por medio de un RET. Con 
esta subrutina el programa principal es 
muy sencillo. En primer lugar carga¬ 
mos en IX el valor 6050 L que es la 
parte inferior del primer número a su¬ 
mar. A continuación ponemos el aca¬ 
rreo a cero* Esto se hace porque según 
indicamos, el byte más inferior se su¬ 
maba sin acarreo, pero eso era )o mis¬ 
mo que sumar con acarreo 0, que es lo 
,quc tenemos que hacer en este caso ya 
que la subrutina suma siempre con 
acarreo. La instrucción usada para 
esto es "OR A". Aunque esto en prin¬ 
cipio pueda parecer extraño, tiene su 
razón de ser y es uno de los trucos más 
usados del eodigo máquina del Z-80. 
El OR de dos hytes lo que hace es coger 
una a una las parejas de bits situadas 
en la misma posición y generar un ter¬ 
cer bit que sea uno si alguno de los dos 
anteriores (o los dos) es uno, y vale 
cero si los dos son cero. De modo que l 
OR I es 1, 1 ORO es l y 0 ORO es 0. 
Aplicando a dos hytes. por ejemplo 
01011011 y 001101II, queda: 
011 il 111 al hacer la operación hit a 
bit La operación del Z-8G OR A reali¬ 
za un OR del contenido de! acumula¬ 
dor consigo mismo, y por una sencilla 
comprobación se comprueba que no 
modifica el contenido, pero pone la 
bandera de acarreo a cero, lo que resul- 


adquiriría proporciones descomuna¬ 
les. 

Pero nos podemos evitar este pro¬ 
blema usando subrutinas. Estas estruc« 
turas son similares a las subrutinas del 
BASIC y su manejo es básicamente el 
mismo pero a nivel de lenguaje máqui¬ 
na. Su uso nos permite que determina¬ 
das partes de un programa que se repi¬ 
ten muy a menudo puedan ser escritas 
una sola vez y llamadas desde distintas 
partes del código principal. 

La instrucción que se utiliza para 
llamar a una subrutina (el GOSUB del 
BASIC) es CALL XXXX, donde 
XXXX es la dirección de dieciséis hits 
de la rutina (o su etiqueta correspon¬ 
diente), En dicha dirección debe en¬ 
contrarse el inicio del bloque de ins¬ 
trucciones que queremos usar como 
subrutina. Al final de dicho bloque, en 
d lugar en que se encontraría el RE¬ 
TUR N en un programa BASIC» se 
debe poner RET para que el contro! 
vuelva a la siguiente instrucción a la 
que realizó la llamada. Para aquellos 
que trabajen directamente en hexade- 
cimal, diremos que CALL es "CD” se¬ 
guido de los dos hytes de la instruc¬ 
ción, y que RET es “C9" y no lleva 
ningún parámetro detrás, ya que el or¬ 
denador recuerda desde dónde se hizo 
la llamada (por medio de la pila que 
veremos más adelante). Una descrip¬ 
ción gráfica dd flujo dd programa se 
muestra en la figura l, en ia que se ve 
cómo desde una instrucción se llama a 
una rutina situada al final dd progra¬ 
ma y al terminar esta el control se de¬ 
vuelve a la instrucción siguiente. 

Si se ha fijado en los pequeños lista¬ 
dos que hemos publicado, habrá visto 


Ya hemos visto cómo sumar y restar 
en código máquina utilizando múltiple 
precisión. Los programas que hacían 
esto eran relativamente pequeños y no 
ofrecían dificultad. El único problema 
es que si quisiéramos operar con una 
precisión superior a dos hytes, tendría¬ 
mos que hacer crecer el programa pro¬ 
porcionalmente, y en el caso de una 
suma o resta de 40 hytes, el programa 
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la de gran interés para nuestros propó¬ 
sitos. 

Una vez inicial izados estos dos pará¬ 
metros, llamamos a la subrutina, que 
sumará automáticamente el primer 
byte de cada número y guardará el re¬ 
sultado en sitio correspondiente. A 
continuación decrementamos IX por 
medio de la instrucción DEC IX. simi¬ 
lar en funcionamiento a INC HL, pero 
que en lugar de incrementar ese regis¬ 
tro de 16 bits, deerementa el IX (tam¬ 
bién de 16 hits) en una unidad. Su 
equivalente hexadecimal es "DD 2B". 
Al realizar esta acción. IX se queda 
con un valor de 60500. que correspon¬ 
de al segundo byte de la suma, opera¬ 
ción que se realiza inmediatamente al 
llamar de nuevo a la subrutina. En este 
caso el acarreo es el resultado de la 
suma anterior y no hay que tocarlo, la¬ 
bor que se facilita al no ser modificado 
por ninguna instrucción de las que 
usamos entre llamadas a la subrutina. 


Sumas con más bytes 

Esta idea que hemos dado para las 
sumas de números de dos bytes se pue¬ 
de ampliar a números mayores, para lo 
que bastaría en principio con repetir 
las instrucciones de decrementado de 
IX y de llamado a la subrutina. Esto se 
hace en el listado de la figura 2 t que 
suma dos números de 3 bytes. Para su¬ 
mar más bytes basta añadir las instruc¬ 
ciones DEC IX y CALL a la subrutina, 
modificando, eso sí, las direcciones de 
memoria donde se almacenan los da¬ 
tos para que no es escriban unos enci¬ 
ma de otros. 


La máquina de escribir 

En todos los programas que hemos 
visto hasta ahora las entradas y salidas 
las hacíamos desde BASIC. Pero tam¬ 
bién es posible hacerlo desde lenguaje 
máquina utilizando para ello la ROM 
del BASIC que ya trae un conjunto de 
rutinas con utilidades varias. Una de 
ellas se encarga de imprimir al canal 
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ORE 

60000 

DD21SSÉC < 

»20 


lE 

13.60501 

EAo4 57 f 
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OF. 

A 

EA65 CD6EEA 

>>40 


CALL. 

5UHAB 

£hí= DDL? 

;-oso 


DEC 

Tí 

EA6A CDóEEA 

:»y, so 


CALL 

SUMAS 

EA6D C9 

: 07 o 


FET 


EA6E BD?EQO 

l-ogr;■ 

= 'J*i hB 

LO 

A,<IX *01 

EA7I OPEE OL¬ 

>>90 


ADC 

nx+2i 

EA? a DD77-M 

:■ i oo 


LO 

CTX+4Í+A 

EA77 C? 

: lio 


RET 



:■ i so 


END 
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que se encuentre activo en ese momen¬ 
to (normalmente la pantalla). Se llama 
por medio de RST 16 {10h) e imprime 
el carácter que haya en el acumulador. 
La instrucción RST es una versión rá¬ 
pida del CALL que se utiliza para de¬ 
terminadas direcciones bajas de me¬ 
moria (las que son múltiplos de 8) y su 
código hexadecimal varia con cada di¬ 
rección. ya que en un solo byte se mete 
la dirección y la dirección de llamada. 

Otra llamada que también resulta 
muy interesante es la de leer un carác¬ 
ter dei teclado, CALL 5598, que de¬ 
vuelve en A el carácter le ido. Con ello 
podemos hacer un sencillo programa 
de máquina de escribir que se limite a 
copiar en pantalla lo que se teclee, 
como se demuestra en el listado de la 
figura 3. 

Por último queda una nueva instruc¬ 
ción que es necesaria para hacer el pro¬ 
grama. esta es el salto incondicional, 
similar al GOTO del BASIC, que nos 
permite que después de leer e imprimir 
un carácter, vuelva al principio para 
leer otro, Se escribe JP xxxx y xxxx es 
una dirección de 16 bits, la función que 
hace es similar al CALL pero con la 
excepción de que no guarda en la pila 
la dirección desde la que se hizo la lla¬ 
mada y por tanto no se puede volver 
con un RET. Esto es similar a la dife¬ 
rencia entre GOSUB y GOTO en BA¬ 
SIC, 

Una vez realizado este sencillo pro¬ 
grama, podemos hacer que la máquina 
sea algo más inteligente y que sólo es¬ 
criba en mayúsculas, modificando las 
minúsculas. La estructura básica es la 
misma del listado anterior, pero aña¬ 
diendo instrucciones después de la lec¬ 
tura del teclado y antes de la impresión 
en pantalla, de modo que si es una mi¬ 
núscula, es decir, si su código se en¬ 
cuentra entre el 97 y el 122 (la tabla 
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LD 
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EA6J 

57 
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OR 

A 

EA65 

CD7TEA 
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suriAe 

EAoB 

DD25 
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IX 

EA6A 
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0060 
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5UMAD 

EAfap 

0D25 

0070 

DEC 

IX 

EA&F 

CD73EA 

0090 

HALL 

SUMAD 

EA72 

C9 

0090 

RET 


EA73 

OD7EOO 

OlOÜ EOPfAfe 

LD 

A, UX+OI 

EA76 

DD0BQ3 

ono 

auc 

ÍIX*3) 

EA79 

0D7706 

0120 

LD 

( IX’-ft) 

EA7C 

C9 

0130 

RET 
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END 
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0020 
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CALL 
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0030 


, RET 

16 

EA64 C-360EA 

0040 


JR 

LEE 


0050 


END 
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completa de caracteres del Spectrum 
se encuentra en el apéndice A del ma¬ 
nual de programación), hay que restar¬ 
le 32 para que se convierta en su equi¬ 
valente en mayúsculas. Otra innova¬ 
ción que vamos a introducir es que al 
pulsar ENTER (que tiene el código 
ASCII 13), se termine el programa y 
volvamos al BASIC. 

El organigrama del programa se 
muestra en la figura 4 y para realizar 
las correspondientes modificaciones 
utilizaremos unas nuevas instruccio¬ 
nes. las de comparación y salto condi¬ 
cional. 

La instrucción de comparación, CP, 
se realiza entre el acumulador y el dato 
que se indica detrás. Lo que hace es 
una resta de dicho contenido menos el 
dato indicado a continuación pero sin 
alterar el contenido del acumulador, 
por lo que lo único que resulta afecta¬ 
do son las banderas. En nuestro caso 
tenemos que comprobar primero si el 
código del carácter leído es menor que 
"a" (97). para ello comparamos, por 
lo que al realizar la seudo-resia la ban¬ 
dera de acarreo se pondrá alta si el re¬ 
sultado es negativo, es decir, si el ca¬ 
rácter leído es mayor. Para la segunda 
comparación (si es mayor que “z") uti¬ 
lizamos 123, que es el código siguiente 
al de ese carácter. 

Por último quedan los saltos condi¬ 
cionales. Estas instrucciones son del 
tipo del JP, pero con dos importantes 
diferencias. La primera es que el salto 
sólo se realiza si se cumple la condi¬ 
ción indicada, en el caso de JR C.xx, si 
la bandera de acarreo está a uno: mien¬ 
tras que en JR NC,xx el salto se realiza 
si el acarreo está bajado. La otra dife¬ 
rencia es que la dirección ocupa un 
byte tomado como un numero en com¬ 
plemento a dos. por lo que sólo puede 
direccionarse un rango de direcciones 
comprendido entre 127 y —128 respec¬ 
to al inicio de la siguiente dirección, 
que es la que se toma como 0. Cuando 
se trabaja en ensamblador no hace faI- 
la ir contando, \a que al poner la eti¬ 
queta el programa calcula automática¬ 
mente el desplazamiento necesario. 

Con todo esto se realiza un nuevo 
programa que se lista en la figura 5. 
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0020 

LEE 
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5590 

EA6T 47 

O02S 


LD 

5,A 

EA64 FE61 

0030 


CP 

“a" 

EAÓ6 7-B06 

0040 


JR 

C,1MFRI 

EA6D FE7B 
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CP 

123 

EA6A 7002 

0060 


JR 

N.C , I MF R I 

EA6C D620 

0070 
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32 
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0080 
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16 
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LD 

A,B 
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CP 

13 
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0100 


JR 

NT,LEE 

EA74 C9 

0110 


RET 
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END 
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Un operativo 
pora 

D d Spectrum 










AUTO 

La definición de este coman¬ 
do es muy sencilla, ya que toda 
su sintaxis se ha especificado en 
las tablas, y su ejecución consis¬ 
te únicamente en pasarle los 
parámetros al bucle principal, 
que ya se encargará de escribir 
los números de línea. Lo prime¬ 
ro que hace es recuperar los pa¬ 
rámetros del número de línea e 
incremento de la pila de cálculo 
y los resta para obtener el valor 
correcto de la variable AUTO- 
LL Por último, inicializa las va¬ 
riables AUTOIN y AUTON y 
acaba saltando directamente 
sobre el bucle principal. 


MODE 

Al igual que con AUTO la 
sintaxis está definida en las ta¬ 
blas. Durante la ejecución coge 
el número de la pila de cálculo, 
comprueba que está dentro de 
los límites correctos y busca e! 
valor correspondiente para la 
variable PRDIR (dirección de 
la rutina de salida) en la tabla 
TPRO. 


ONERR 

Este es un comando de clase 
5, y por lo tanto, todo el trabajo 
de análisis sintáctico debe ha¬ 
cerlo la propia rutina ONERR. 
Como compensación la ejecu¬ 
ción es muy simple, ya que se 
comporta como si se tratara de 
un REM. (Sólo se pasa detrás 
cuando se ha producido un 
error). Para realizar el análisis 
sintáctico utiliza la rutina 
LIERR, que se encarga de com¬ 
probar los parámetros de los 


códigos de error. Esta rutina 
también se utiliza cuando se ha 
producido un error para com¬ 
probar si hay alguna referencia 
al error producido en una sen¬ 
tencia ONERR. En este caso 
nos devolverá el indicador de 
cero a uno si se ha encontrado 
el código. 


ELSE 

El peso del comando ELSE 
está dentro de la rutina de eje¬ 
cución de un IF. La rutina de 
ELSE se reduce a continuar si 
se está realizando un análisis 
sintáctico o a pasar a la siguien¬ 
te línea si estamos en ejecución. 
De esta forma, la rutina queda 
reducida a solamente tres ins¬ 
trucciones. Lo que queda detrás 
de ELSE sólo se ejecutará si no 
se cumple la condición del IF 
correspondiente. 

SWAP 

Si se llama a este comando 
durante el análisis sintáctico la 
rutina comprueba la existencia 
de los dos nombres de variables 
separados por una coma lla¬ 
mando dos veces a 1C1F 
(CLASS 01), y luego comprue¬ 
ba que las dos variables son del 
mismo tipo. 

Si se llama durante la ejecu¬ 
ción el tratamiento es distinto, 
según si se trata de un cambio 
de variables numéricas o alfa- 
numéricas. Si son numéricas 
simplemente coge los dos valo¬ 
res en la pila de cálculo y luego 
los asigna en orden inverso lla¬ 
mando dos veces a LET. Si son 
variables alfanuméricas no es 
posible hacer esto, ya que lo 


Este mes acabamos la serie de artículos dedicados al nuevo 
sistema operativo con la parte correspondiente a las rutinas 
de los siete nuevos comandos y el modo de 64 caracteres. 
Con todas las rutinas de los números anteriores ya está 
todo preparado para que cada comando sea llamado en su 
momento y, que éste pueda apoyarse sin problemas en la 
ROM y en el resto del programa , con lo que la definición 
del comando se ha simplificado al máximo. 


que se almacena en la pila no es 
el propio valor, sino una serie 
de parámetros que nos indican 
dónde está la cadena y qué lon¬ 
gitud tiene, y si lo intentáramos 
destruiríamos una de las varia¬ 
bles al hacer la primera asigna¬ 
ción. Por esta razón, una de las 
variables debe ser copiada en el 
área de trabajo antes de realizar 
las dos transferencias. 


ON 

Este comando realiza de una 
forma paralela el análisis sin¬ 
táctico y la ejecución, aprove¬ 
chándose de que la mayoría de 
las rutinas de la ROM que ne¬ 
cesita están preparadas para 
ello. En primer lugar, coge el 
valor de la expresión (o com¬ 
prueba su sintaxis) y mira si de¬ 
trás hay un GO TOo GO SUB; 
a continuación, entra en un bu¬ 
cle en el que va cogiendo todos 
los valores de los números de lí¬ 
nea y luego los saca de la pila a 
no ser que sea el que nos intere¬ 
sa. Una vez acabado este proce¬ 
so da por terminada la rutina si 
está realizando un análisis sin¬ 
táctico, o pasa a la rutina 
GOTO o GOSUB si está ejecu¬ 
tando. 

RENUM 

Este es sin duda el más com¬ 
plejo de los nuevos comandos. 
Cuando este comando es llama¬ 
do los dos primeros parámetros 
de la sentencia (que siempre 
existen) ya han sido introduci¬ 
dos en la pila (o analizados). Lo 
primero que debe hacer es com¬ 
probar si existen los otros dos y 
analizarlos si es así. Una vez 
hecho esto, hemos acabado en 
el caso de análisis sintáctico. Si 
estamos en ejecución hay que 
colocar los valores por defecto 
si es necesario y comprobar si 
todos los parámetros son co¬ 
rrectos. El número de la última 
línea a numerar debe ser mayor 
que el de la primera línea, el in¬ 
cremento no debe ser cero, y el 




nuevo número de la última lí¬ 
nea que se va a renumerar debe 
ser menor que el número de la 
siguiente línea. Además de és¬ 
tas se deberían haber hecho 
otras comprobaciones, como 
que el incremento no sea nega¬ 
tivo. Durante la ejecución de 
RENUM se utiliza en varias 
ocasiones la rutina NNL. a la 
cual se ¡e pasa el número de lí¬ 
nea en los registros BC y nos de¬ 
vuelve en IX el número de línea 
que le corresponderá después 
de la renumeración. Además, 
nos devolverá el indicador de 
carry a unq si la línea no va a 
ser modificada. Esta rutina se 
utiliza por primera vez para 


1309 

AUTO 

CALL 

*1E99 

1343 

ONERR 

CALL 

*2530 

1310 


PUSH 

BC 

1344 


JP 

NZ,REM 

1311 


CALL 

■ i lE99 

1345 


CALL 

LIÉRR 

1312 


POP 

HL 

1346 

GSTL1 

CALL 

GETCH 

1313 


LD 

D, B 

1347 


JP 

STMTL1 

1314 


LD 

E, C 

1348 

LIERR 

CALL 

GETCH 

1315 


EX 

DÉ, HL 

1349 


CALL 

*2C88 

1316 


AND 

A 

1350 


JR 

NC,REPB 

1317 


SBC 

HL, DE 

1351 


PUSH 

AF 

1318 


LD 

(AUTOLIJ,HL 

1352 


EX 

AF,AF ? 

1319 


LD 

(AUTOIN),DE 

1353 


POP 

AF 

1320 


LD 

HL,AUTON 

1354 

□NER1 

CP 

*3ñ 

1321 


LD 

(HL),*01 

1355 


JR 

C,LETRA 

1322 


LD 

SP,(*5C3D) 

1356 


AND 

*DF 

1323 


POP 

AF 

1357 


SUB 

*07 

1324 


JP 

MAIN! 

1358 

LETRA 

SUB 

*30 

1325 

MODE 

CALL 

*2DD5 

1359 


CP 

E 

1326 


JR 

C,REPB 

1360 


JR 

NZ,0NER2 

1327 


CP 

*02 

1361 


EX 

AF,AF’ 

1328 


JR 

C, MQD1 

1362 

0NER2 

CALL 

NEXTCH 

1329 

REPB 

RST 

8 

1363 


CP 

*2C 

1330 


DEFB 

*0A 

1364 


JR 

NZ,ONERET 

1331 

MDD1 

ADD 

A, A 

1365 


CALL 

NEXTCH 

1332 


LD 

C, A 

1366 


CALL 

*2C88 

1333 


LD 

B,*00 

1367 


JR 

C,0NER1 

1334 


LD 

HL,TPRO 

1368 


RST 

8 

1335 


ADD 

HL, BC 

1369 


DEFB 

*0B 

1336 


LD 

E,(HL) 

1370 

□NERET 

EX 

AF,AF’ 

1337 


INC 

HL 

1371 


RET 


1338 


LD 

D,(HL) 

1372 

ELSE 

CALL 

*2530 

1339 


LD 

(PRDIR),DE 

1373 


JP 

NZ,REM 

1340 


RET 


1374 


JR 

GSTL1 

1341 

TPRO 

DEFW 

*09F4 

1375 

SWAP 

CALL 

*2530 

1342 


DEFW 

PROUT1 

1376 


JR 

NZ,SWRUN 



calcular el nuevo número que 
le corresponde a la última línea 
a renumerar. A la vez que se 
realizan estas comprobaciones 
se inicializan las variables del 


sistema con los cuatro paráme¬ 
tros, para que puedan ser usa¬ 
dos por NNL. Una vez hecho 
esto, se llama a la rutina SCAN 
que rastrea todo el programa en 
busca de comandos que pueden 
necesitar ser modificados, y los 
arregla si es necesario. Por últi¬ 
mo, cambia los números de las 
líneas indicadas. Para ello mar¬ 
ca el final de la zona a renume¬ 
rar como si fuera el final del 
programa durante el proceso, y 
lo vuelve a arreglar al final. 

NEW 

La rutina NEW nos permite 
borrar el programa BASIC e 













inicializar el sistema sin desco¬ 
nectarnos del resto del progra¬ 
ma. Este NEW no vuelve a tes- 
tear toda la memoria disponi¬ 
ble, sino que se limita a iniciali¬ 
zar las variables indicando que 
no existe programa BASIC. 


COMND 

Esta es la rutina de los co¬ 
mandos que todavía no han 
sido definidos. Lo único que 
hace es generar un mensaje de 
error. Este es el punto en que se 
debería escribir el hipotético 
octavo comando correspon¬ 
diente al código 31. 


PROUT 


Es la encargada de gestionar 
toda la impresión en pantalla e 
impresora, tanto en modo de 32 
como de 64 caracteres. Si esta¬ 
mos en el modo de 64 caracte¬ 
res (MODE 1) el programa mo¬ 
difica el byte de salto relativo en 
la dirección PAMOD+l según 
si estamos en la primera o en la 
segunda mitad del carácter. 
Esta rutina también se encarga 
del tratamiento de los caracte¬ 
res de control. En este punto se 
han corregido los errores que se 
producían al escribir los carac¬ 
teres 8 y 9, con los cuales ahora 


nos podemos desplazar por 
toda la pantalla. 

Para saber si estamos en 
MODE 0 ó 1 utiliza la variable 
PRDIR que contiene la direc¬ 
ción a la que debe saltar para 
escribir el carácter. La rutina 
por lo demás podría ser inde¬ 
pendiente del resto del progra¬ 
ma siempre que se inicializara 
correctamente la variable 
PRDIR. De esta forma, esta 
parte se podría «transplantar» a 
otro programa. En la tabla TO- 
TAB están los nombres de las 
palabras clave de los nuevos co¬ 
mandos con el bit más significa¬ 
tivo del último byte puesto a 
uno. 


1377 


CALL 

*icif 

1411 


RST 

*30 

1378 


LD 

C,*2C 

1412 


POP 

DE 

1379 


CALL 

SEPARA 

1413 


PUSH 

BC 

1380 


LD 

A,(*5C3B) 

1414 


LD 

HL,(*5C61) 

1381 


PUSH 

AF 

1415 


EX 

DE, HL 

1382 


CALL 

~1C1F 

1416 


LDIR 


1383 


PGP 

AF 

1417 


CALL 

NEXTCH 

1384 


LD 

D, (IY+1) 

1418 


CALL 

*24FB 

1385 


XOR 

D 

1419 


POP 

BC 

1386 


AND 

*40 

1420 


POP 

HL 

1387 


RET 

Z 

1421 


PUSH 

BC 

1388 

REPC2 

RST 

8 

1422 


LD 

<*5C5D),HL 

1389 


DEFB 

*0B 

1423 


CALL 

*1C1F 

1390 

SWRUN 

LD 

HL,<*5C5D> 

1424 


CALL 

*2AFF 

1391 


PUSH 

HL 

1425 


LD 

DE,<*5C61> 

1392 


CALL 

*24FB 

1426 


POP 

BC 

1393 


BIT 

6 f <IY+1> 

1427 


CALL 

*2AB2 

1394 


CALL 

Z,SWSTR 

1428 


JP 

SWCON 

1395 


CALL 

NEXTCH 

1429 

□ 

z 

J> 

£7i 

□ 

CALL 

GETCH 

1396 


CALL 

*24FB 

1430 


CALL 

*1CB2 

1397 


POP 

HL 

1431 


LD 

B, A 

1398 


LD 

<*5C5D>,HL 

1432 


AND 

*FE 

1399 


CALL 

*1C1F 

1433 


CP 

*EC 

1400 


CALL 

*2AFF 

1434 


JR 

NZ,REPC2 

1401 

SWCON 

CALL 

NEXTCH 

1435 


LD 

C,*QO 

1402 


CALL 

*1C1F 

1436 


PUSH 

BC 

1403 


CALL 

*2AFF 

1437 


CALL 

*2530 

1404 


RET 


1438 


SCF 

t 

1405 

SWSTR 

CALL 

*2BF1 

1439 


CALL 

NZ,*2DD5 

1406 


LD 

A, B 

1440 


JR 

NC,ONLQOP 

1407 


OR 

C 

1441 


LD 

A, *FF 

1408 


JP 

Z,“2AB2 

1442 

□NLOOP 

PUSH 

AF 

1409 


POP 

HL 

1443 


CALL 

NEXTCH 

1410 


PUSH 

DE 

1444 


CALL 

*1CB2 







1445 


POP 

AF 

1485 


CALL 

*1C7A 

1446 


CALL 

*2530 

1486 


CALL 

*1E99 

1447 


JR 

Z, 0N1 

1487 


PUSH 

BC 

1448 


DEC 

A 

1488 


CALL 

*1E99 

1449 


JR 

Z, 0N2 

1489 

DOSPAR 

POP 

HL 

1450 


PUSH 

AF 

1490 


AND 

A 

1451 


RST 

*28 

1491 


SBC 

HL, BC 

1452 


DEFB 

*02,*38 

1492 


ADD 

HL, BC 

1453 


POP 

AF 

1493 


JR 

C,REPB2 

1454 

DN1 

LD 

B, A 

1494 


LD 

(ULTLI),HL 

1455 


CALL 

6ETCH 

1495 


LD 

(PRILI),BC 

1456 


CP 

*2C 

1496 


CALL 

*1E99 

1457 


LD 

A, B 

1497 


LD 

A, B 

1458 


JR 

Z,ONLOOP 

1498 


OR 

C 

1459 


POP 

AF 

1499 


JR 

NZ,REÑI 

1460 


CALL 

*2530 

1500 

REPB2 

RST 

8 

1461 


RET 

Z 

1501 


DEFB 

*0A 

1462 


RET 

NC 

1502 

REÑI 

LD 

(INCR),BC 

1463 


CP 

*ED 

1503 


CALL 

*1E99 

1464 


JP 

Z,*1EED 

1504 


LD 

(COMIE),BC 

1465 


JP 

*1E67 

1505 


LD 

BC,(ULTLI) 

1466 

0N2 

POP 

BC 

1506 


CALL 

NNL 

1467 


DEC 

C 

1507 


PUSH 

IX 

1468 


PUSH 

BC 

1508 


CALL 

Z,*19BB 

1469 


JR 

0N1 

1509 


LD 

D, íHL) 

1470 

RENUJ1 

CALL 

*2530 

1510 


INC 

HL 

1471 


JR 

NZ,RERUN 

1511 


LD 

E,(HL) 

1472 


RST 

*18 

1512 


POP 

HL 

1473 


CP 

*2C 

1513 


AND 

A 

1474 


RET 

NZ 

1514 


SBC 

HL, DE 

1475 


RST 

*20 

1515 


JR 

NC,REPB2 

1476 


JP 

*1C7A 

1516 


LD 

HL,<*5C5D> 

1477 

RERUN 

RST 

*18 

1517 


LD 

<*5C5F>,HL 

1478 


CP 

*2C 

1518 


CALL 

SCAN 

1479 


JR 

Z,CUATRO 

1519 


LD 

A, *FE 

1480 


LD 

HL,*2710 

1520 


CALL 

*1601 

1481 


PUSH 

HL 

1521 


LD ' 

HLj, <*5C5F> 

1482 


LD 

BC,*0000 

1522 


LD 

<*5C5D),HL 

1483 


JR 

DGSPAR 

1523 


LD 

(IY+38),*00 

1484 

CUATRO 

RST 

*20 

1524 


LD 

HL,(ULTLI) 
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1525 


INC 

HL 

1575 


INC 

HL 

1526 


CALL 

^196E 

1576 


JR 

OTRALI 

1527 


LD 

A,(HL) 

1577 

NXST 

CALL 

NEXTCH 

1528 


F'USH 

AF 

1578 


PUSH 

HL 

1529 


LD 

A, A QO 

1579 


LD 

HL,RETAB 

1530 


LD 

(HL).A 

15B0 


LD 

C, A 

1531 


LD 

HL,(PRILI) 

1581 


CALL 

^16DC 

1532 


CALL 

^196E 

1582 


JR 

NC,OTRST 

1533 


LD 

DE,(COMIE) 

1583 


LD 

D,^00 

1534 


FUSH 

DE 

1584 


LD 

E, (HL) 

1535 

REBUC 

LD 

A,(HL) 

1585 


ADD 

HL, DE 

1536 


CP 

^80 

15B6 


CALL 

^162C 

1537 


JR 

Z,REEND 

1587 


JR 

OTRST 

1538 


POP 

DE 

1588 

RETAS 

DEFB 

*F8,RSAVE-* 

1539 


LD 

(HL),D 

1589 


DEF8 

- 1 ‘1C, RON-i 

1540 


INC 

HL 

1590 


DEFB 

^EC,RRES-* 

1541 


LD 

(HL),E 

1591 


DEFB 

*ED,RRES-* 

1542 


DEC 

HL 

1592 


DEFB 

^E1,RRES-$ 

1543 


PUSH 

HL 

1593 


DEFB 

^FO,RRES-í 

1544 


LD 

HL,<INCR) 

1594 


DEFB 

^F7«RRES-$ 

1545 


ADD 

HL, DE 

1595 


DEFB 

"*•£5, RRES—$ 

1546 


EX 

(SP),HL 

1596 


DEFB 

^OO 

1547 


CALL 

*19B8 

1597 

RSAVE 

LD 

BC,^FFCA 

1548 


EX 

DE, HL 

1598 

SAGN 

LD 

HL,(^5050) 

1549 


JR 

REBUC 

1599 

SA0N1 

INC 

HL 

1550 

REEND 

POP 

DE 

1600 


LD 

A, (HL) 

1551 


POP 

AF 

í 601 


CALL 

^18BÓ 

1552 


LD 

(HL),A 

1602 


CP 

^OD 

1553 


RET 


1603 


RET 

Z 

1554 

SCAN 

LD 

HL,( A 5C53> 

1604 


AND 

B 

1555 

OTRALI 

LD 

A, (HL > 

1605 


CP 

C 

1556 


AND 

-co 

1606 


JR 

NZ,SA0N1 

1557 


RET 

NZ 

1607 


LD 

( A 5C5D),HL 

155B 


INC 

HL 

1608 


JR 

RRES 

1559 


INC 

HL 

1609 

RON 

LD 

BC, A FEEC 

1560 


LD 

C,<HL> 

1610 


CALL 

SAON 

1561 


INC 

HL 

1611 

OTRPA 

RST 

^20 

1562 


LD 

B,<HL> 

1612 


CALL 

*MCB2 

1563 


PUSH 

HL 

1613 


PUSH 

AF 

1564 


ADD 

HL, BC 

1614 


RST 

A 28 

1565 


LD 

(^5C4D),HL 

1615 


DEFB 

^02,^38 

1566 


POP 

HL 

1616 


POP 

AF 

1567 


LD 

ÍDCQMI),HL 

1617 


CP 

^2C 

1568 


LD 

<^5C5D>„HL 

1618 


RET 

NZ 

1569 


JR 

NX3T 

1619 


CALL 

RRES 

1570 

□TRST 

POP 

HL 

1620 


JR 

OTRPA 

1571 


LD 

D, A 02 

1621 

RRES 

LD 

HL,<^5C5D) 

1572 


CALL 

EASTIiT 

1622 

RES1 

INC 

HL 

1573 


JR 

NC,NXST 

1623 


LD 

A,(HL) 

1574 


LD 

HL,(~5C4D> 

1624 


CP 

A OE 






1625 


JR 

2,RES2 

1665 


CALL 

A 1A1B 

1626 


CALL 

“2D1B 

1666 


LD 

HL,<^5C4D) 

1627 


RET 

C 

1667 


LD 

DE,(DCOMI) 

1628 


JR 

RES 1 

1668 


AND 

A 

1629 

RES2 

PUSH 

HL 

1669 


SBC 

HL, DE 

1630 


CALL 

^18B6 

1670 


EX 

DE, HL 

1631 


CP 

A 3A 

1671 


LD 

(HL > , D 

1632 


JR 

Z,RES3 

1672 


DEC 

HL 

1633 


CP 

^OD 

1673 


LD 

(HL),E 

1634 


JR 

Z,RES3 

1674 


RET 


1635 


CP 

“2C 

1675 

NNL 

LD 

HL,(ULTLI) 

1636 


POP 

DE 

1676 


AND 

A 

1637 


RET 

NZ 

1677 


SBC 

HL, BC 

1630 


PUSH 

DE 

1678 


RET 

C 

1639 

RES3 

DEC 

HL 

1679 


LD 

HL,(PRILI) 

1640 


DEC 

HL 

1680 


BBC 

HL, BC 

1641 


LD 

B,(HL) 

1681 


RET 

Z 

1642 


DEC 

HL 

1682 


CCF 


1643 


LD 

C,(HL) 

1683 


RET 

c 

1644 


CALL 

NNL 

1684 


ADD 

HL, BC 

1645 


POP 

HL 

1685 


LD 

IX,(COMIE) 

1646 


RET 

C 

1686 


PUSH 

BC 

1647 


PUSH 

IX 

1687 


CALL 

' i 196E 

1640 


POP 

BC 

1688 

OTHLI 

POP 

BC 

1649 


PUSH 

HL 

1689 


CALL 

A 19SO 

1650 


INC 

HL 

1690 


RET 

NC 

1651 


INC 

HL 

1691 


LD 

DE,(INCR) 

1652 


INC 

HL 

1692 


ADD 

IX,DE 

1653 


LD 

(HL),C 

1693 


PUSH 

BC 

1654 


INC 

HL 

1694 


CALL 

^19B8 

1655 


LD 

(HL),B 

1695 


EX 

DE, HL 

1656 


POP 

HL 

1696 


JR 

OTHLI 

1657 


LD 

DE,(~5C5D) 

1697 

DCOMI 

DEFW 

~OQOO 

1658 


INC 

DE 

1698 

ULTLI 

DEFW 

10000 

1659 


LD 

Í^5C5B),HL 

1699 

PRILI 

DEFW 

1 

1660 


PUSH 

BC 

1700 

COMIE 

DEFW 

10 

1661 


CALL 

■*T9E5 

1701 

INCR 

DEFW 

10 

1662 


LD 

A, ~FF 

1702 

NEW 

LD 

HL,Í^5CB2) 

1663 


CALL 

^1601 

1703 


LD 

(HL),^3E 

1664 


POP 

BC 

1704 


DEC 

HL 















1705 

LD 

SP,HL 

1758 


DEFB 

^C5 

1706 

DEC 

HL 

1759 

COMND 

RST 

8 

1707 

DEC 

HL 

1760 


DEFB 

-OB 

1708 

LD 

(*5C3D>,HL 

1761 

PROUT 

CALL 

PCALC 

1709 

LD 

IY, A 5C3A 

1762 


PUSH 

HL 

1710 

LD 

HL,^5CB6 

1763 


PUSH 

AF 

1711 

LD 

Í^5C4F>,HL 

1764 


LD 

A, (HL) 

1712 

LD 

DE,^15AF 

1765 


LD 

(PAMGD+1),A 

1713 

LD 

BC.^OOIS 

1766 


POP 

AF 

1714 

EX 

DE, HL 

1767 


CP 

A 20 

1715 

LDIR 


1768 


JR 

NC,PRGU2 

1716 

EX 

DE, HL 

1769 


CP 

~1Ó 

1717 

DEC 

HL 

1770 


JR 

C,PR0U2 

1718 

LD 

<^5C57>,HL 

1771 


CP 

^18 

1719 

INC 

HL 

1772 


JR 

C, F'ROUl 

1720 

LD 

<^5C53>,HL 

1773 


SUB 

~18 

1721 

LD 

Í^5C4B>,HL 

1774 


LD 

DE,TOTAB 

1722 

LD 

(HL),^80 

1775 


CALL 

POTOK 

1723 

INC 

HL 

1776 


POP 

HL 

1724 

LD 

( A 5C59),HL 

1777 


RET 


1725 

LD 

(HL), A 0D 

1778 

PROU1 

POP 

HL 

1726 

INC 

HL 

1779 


JR 

PROUT1 

1727 

LD 

(HL), A 80 

1780 

PCALC 

LD 

HL,PRDAT 

172B 

INC 

HL 

1781 


BIT 

1, (IY+1 ) 

1729 

LD 

(~5C61),HL 

1782 


RET 

NZ 

1730 

LD 

(~5C63),HL 

1783 


INC 

HL 

1731 

LD 

Í^SCÓS),HL 

1784 


BIT 

0, ( IY+2) 

1732 

LD 

A, A 0F 

1785 


RET 

Z 

1733 

LD 

( A 5C8D),A 

1786 


INC 

HL 

1734 

LD 

( A 5C8F),A 

1787 


RET 


1735 

LD 

(~5C48),A 

1788 

PR0U2 

LD 

HL,(PRDIR) 

1736 

LD 

A, A 01 

1789 


CALL 

A 162C 

1737 

DüT 

(^FE),A 

1790 


POP 

HL 

1738 

DEC 

(IY-58) 

1791 

PSTQRE 

LD 

A,(PAMOD+1) 

1739 

DEC 

(IY—54) 

1792 


LD 

(HL),A 

1740 

LD 

HL,PROUT 

1793 


RET 

1741 

LD 

(~5CC5> , HL 

1794 

PRDIR 

DEFW 

PROUT1 

1742 

LD 

HL, A 15C6 

1795 

PRDAT 

DEFB 

P 

O 

o 

'a 

P 

O 

o 

V 

p 

o 

o 

1743 

LD 

DE, A 5C10 

1796 

POTOK 

PUSH 

AF 

1744 

LD 

BC,^OOOE 

1797 


CALL 

-QC41 

1745 

LDIR 


1798 


LD 

A, A 20 

1746 

SET 

1, (IY+1) 

1799 


BIT 

0,(IY+1) 

1747 

CALL 

*0EDF 

1800 


CALL 

Z,^0C3B 

1748 

LD 

(IY+49), A 02 

1B01 

POEACH 

LD 

A,(DE) 

1749 

CALL 

CLS 

1802 


AND 

~7F 

1750 

XOR 

A 

1803 


CALL 

A 0C3B 

1751 

LD 

DE,MCQPYR 

1804 


LD 

A, (DE) 

1752 

CALL 

~0C0A 

1805 


INC 

DE 

1753 

LD 

(IY+1) , *00 

1806 


ADD 

A, A 

1754 

SET 

5,(IY+2) 

1807 


JR 

NC,PDEACH 

1755 

JP 

MAIN1 

1808 


POP 

DE 

1756 MCQPYR 

DEFB 

P 

00 

o 

1809 


CP 

A 48 

1757 

DEFM 

"c 1984 Arana 

SOFTWAR" 1810 


JR 

Z , PR0U3 








1811 


CP 

-82 

1851 

POTAB 

LD 

A,H 

1812 

PR0U3 

LD 

A, ^20 

1852 

POFILL 

CALL 

-0B03 

1813 


JP 

-QC3B 

1853 


PU5H 

AF 

1814 

PRÜUT1 

CALL 

-OB03 

1854 


LD 

A,(PAMOD+1) 

1815 


CP 

^20 

1855 


CP 

-01 

1816 


JP 

NC,POABLE 

1856 


RL 

C 

1817 


CP 

-10 

1857 


POP 

AF 

1818 


JR 

C,PCTRL 

1858 


ADD 

A,C 

181? 


CP 

-18 

1859 


SUB 

-03 

1820 


JR 

NC,PINTER 

1860 


AND 

-3F 

1821 


CP 

-16 

1861 


JP 

-CACA 

1822 


JR 

NC,P2DPER 

1862 

P20PER 

LD 

DE,P0TV2 

1823 


LD 

DE,PCONT 

1863 


JR 

P0TV1 

1824 

P0TV1 

JP 

-OA7D 

1864 

P0TV2 

LD 

DE,PCONT 

1825 

PCONT 

LD 

DE,PROUT 

1865 


JP 

-0A70 

1826 


CALL 

-0A80 

1866 

PINTER 

LD 

A, —3F 

1827 


LD 

HL,(-5C0E) 

1867 


JR 

POABLE 

1828 


LD 

D.A 

1868 

PCTRL 

CP 

-06 

1829 


LD 

A, (PRDIft+1) 

1869 


JR 

NZ,POBACK 

1830 


CP 

-09 

1870 


SLA 

C 

1831 


JP 

Z,—0A91 

1871 


LD 

A,-44 

1832 


LD 

A,L 

1872 


SUB 

c 

1833 


CP 

-16 

1873 


AND 

-30 

1834 


JP 

C,—2211 

1874 


ADD 

A,-10 

1835 


JR 

NZ,POTAS 

1875 


JR 

POFILL 

1836 


LD 

B, H 

1876 

POBACK 

CP 

-08 

1837 


LD 

C,D 

1877 


JR 

NZ,PRIGHT 

1838 


LD 

A, —3F 

1878 


LD 

A,(PAMOD+1) 

1839 


SUB 

C 

1879 


AND 

A 

1840 


JP 

C,—OAAC 

1880 


JR 

Z,PBCK1 

1841 


ADD 

A, -04 

1881 


XOR 

A 

1842 


LD 

C, A 

1882 


LD 

(PAMOD+1),A 

1843 


XÜR 

A 

1883 


RET 


1844 


SRL 

C 

1884 

PBCK1 

LD 

A,-15 

1845 


JR 

C,PATINP 

1885 


LD 

(PAMOD+1),A 

1846 


LD 

A,-15 

1886 


INC 

C 

1847 

PATINP 

LD 

(PAMOD+1),A 

1887 


LD 

A,-22 

1848 


CALL 

-0AA3 

1888 


CP 

C 

1849 


CALL 

PCALC 

1889 


JR 

NZ.PBCK3 

1850 


JP ‘ 

PSTORE 

1890 


BIT 

1 , (IY+l> 














1891 


JR 

N2,PCBK2 

1944 

CP 

*20 

1892 


INC 

B 

1945 

JR 

NZ,P0CH3 

1893 


LD 

C, *02 

1946 

SET 

0,(HL) 

1894 


LD 

A,*19 

1947 P0CH3 

LD 

H,*00 

1895 


CP 

B 

1948 

LD 

L,A 

1896 


JR 

NZ,PBCK3 

1949 

ADD 

HL, HL 

1897 


DEC 

B 

1950 

ADD 

HL, HL 

1898 

PCBK2 

LD 

C, ^21 

1951 

ADD 

HL, HL 

1899 


XOR 

A 

1952 

ADD 

HL, BC 

1900 


LD 

(PAMÜD+l),A 

1953 

PDP 

BC 

1901 

PBCK3 

JP 

*0DD9 

1954 

EX 

DE, HL 

1902 

PRIGHT 

CP 

*09 

1955 

LD 

A,(PAMOD+1) 

1903 


JR 

NZ,PENTER 

1956 

AND 

A 

1904 


LD 

A,(IY+87) 

1957 

JR 

Z,PRALL 

1905 


PÜSH 

AF 

1958 

XOR 

A 

1906 


LD 

íIY+87), A 

1959 

LD 

(PAMOD+1),A 

1907 


LD 

A, *20 

1960 

JR 

PALL7 

1908 


CALL 

ROCHAR 

1961 PRALL 

LD 

A, C 

1909 


POP 

AF 

1962 

DEC 

A 

1910 


LD 

(IY+87).A 

1963 

LD 

A,*21 

1911 


JP 

*OADC 

1964 

JR 

NZ ,PALL1 

1912 

PENTER 

CP 

*0D 

1965 

DEC 

B 

1913 


JR 

NZ,PINTER 

1966 

LD 

C, A 

1914 


BIT 

1 , (IY+l) 

1967 

BIT 

l,(IY+l) 

1915 


JP 

NZ,CBUFF 

1968 

JR 

Z,FALLI 

1916 

- 

XOR 

A 

1969 

PUSH 

DE 

1917 


LD 

(PAMOD+1),A 

1970 

CALL 

CBUFF 

1918 


LD 

C,*21 

1971 

POP 

DE 

1919 


CALL 

*0C55 

1972 

LD 

A,C 

1920 


DEC 

B 

1973 PALL1 

CP 

C 

1921 


JP 

*0009 

1974 

PUSH 

DE 

1922 

PGABLE 

CALL 

PQANY 

1975 

CALL 

Z,*0C55 

1923 


JP 

*OADC 

1976 

POP 

DE 

1924 

POANY 

CP 

*90 

1977 

LD 

A,*15 

1925 


JR 

C,POCHAR 

1978 

LD 

(PAMÜD+l),A 

1926 


SUB 

*A5 

1979 PALL7 

PUSH 

BC 

1927 


JP 

NC,*0B5F 

1980 

PUSH 

HL 

192B 


ADD 

A, *15 

1981 

LD 

A,(IY+87) 

1929 


PUSH 

AF 

1982 

LD 

B,*FF 

1930 


LD 

A,(PAMOD+1) 

1983 

RRA 


1931 


AND 

A 

1984 

JR 

C,PALL2 

1932 


JR 

Z,PUDGSP 

1985 

INC 

B 

1933 


LD 

A, *20 

1986 PALL2 

RRA 


1934 


CALL 

POCHAR 

1987 

RRA 


1935 

PUDGSP 

POP 

AF 

1988 

SBC 

A, A 

1936 


PUSH 

BC. 

1989 

LD 

C, A 

i 1937 


LD 

BC, (*5C7B > 

1990 

LD 

A, *OB 

1938 


JP ■ 

“0B6A 

1991 

AND 

A 

1939 

ROCHAR 

PUSH 

BC 

1992 

BIT 

1 , ( IY+l) 

1940 


LD 

BC , CHTAB—* 100 

1993 

JR 

Z,PALL3 

1941 


EX 

DE, HL 

1994 

SET 

1,(IY+48) 

1942 


LD 

HL,*5C3B 

1995 

SCF 


1943 


RES 

O,(HL) 

1996 PALL3 

EX 

DE, HL 








1997 

PALL4 

EX 

AF,AF’ 

1998 

PAMGD 

JR 

PSM 

1999 


LD 

A,~OF 

2000 


AND 

C 

2001 


LD 

C,A 

2002 


LD 

A. ~F0 

2003 


0R 

B 

2004 


LD 

B, A 

2005 


XOR 

A 

2006 


RRD 


2007 


LD 

A,(DE) 

2008 


AND 

B 

2009 


XOR 

(HL) 

2010 


XOR 

C 

2011 


LD 

(DE),A 

2012 


XOR 

A 

2013 


RLD 


2014 


JR 

PTEXP 

2015 

PSM 

LD 

A, A FO 

2016 


AND 

C 

2017 


LD 

C,A 

2018 


LD 

A,~0F 

2019 


OR 

B 

2020 


LD 

B, A 

2021 


LD 

A,(DE) 

2022 


AND 

B 

2023 


XOR 

(HL) 

2024 


XOR 

C 

2025 


LD 

(DE),A 

2026 

PTEXP 

EX 

AF,AF’ 

2027 


JR 

C,PALL6 

2028 


INC 

D 

2029 

PALL5 

INC 

HL 

2030 


DEC 

A 

2031 


JR 

NZ.PALL4 


2032 


EX 

DE, HL 

2033 


DEC 

H 

2034 


BIT 

1,(IY+1) 

2035 


CALL 

Z,~OBDB 

2036 


POP 

HL 

2037 


POP 

BC 

2038 


LD 

A,(PAMOD+1) 

2039 


AND 

A 

2040 


RET 

NZ 

2041 


DEC 

C 

2042 


INC 

HL 

2043 


RET 


2044 

PALL6 

EX 

AF,AF’ 

2045 


LD 

A, ^20 

2046 


ADD 

A.E 

2047 


LD 

E,A 

2048 


EX 

AF,AF’ 

2049 


JR 

PALL5 

2050 

TOTAB 

DÉFB 

"BF 

2051 


DEFM 

"ELS" 

2052 


DEFB 

~C5 

2053 


DEFM 

Ó 

z 

m 

2054 


DEFB 

~D2 

2055 


DEFM 

"AUT" 

2056 


DEFB 

A CF 

2057 


DEFM 

"RENU" 

2058 


DEFB 

“CD,"0", ■ fc CE 

2059 


DEFM 

"SWA" 

2060 


DEFB 

^DO 

2061 


DEFM 

"MOD” 

2062 


DEFB 

^C5, A C0 

2063 

CBUFF 

LD 

HL,PAMDD+1 

2064 


LD 

(HL), A 00 

2065 


JP 

A OECD 

















Trucos de progre 



A lgunas personas afirman 
que la programación de 
ordenadores es un arte 
más que una ciencia - y 
que sólo unos «elegidos» 
son capaces de programar sa¬ 
cando el máximo partido a la 
máquina. Sin llegar a eso, ni 
mucho menos, sí que es cierto 
que existen muchos «trucos» a 
la. hora de programar que no se 
explican en el manual y que sin 
embargo pueden simplificar 
mucho los programas al aho¬ 
rrarnos el escribir muchas lí¬ 
neas. 

Con este artículo pretende¬ 
mos explicar los más comunes, 
de modo que sus programas 
puedan usarlos y por tanto ser 
más cortos y lo que es más im¬ 
portante, más rápidos. 

Las funciones lógicas 

Normalmente se piensa que 
las funciones lógicas AND y 
OR sólo tienen sentido dentro 
de un 1F para averiguar si una 
condición es cierta o falsa. Lo 
mismo sucede con los símbolos 
de comparación (=, 4 , s , 45 , etc.) 
que normalmente sólo son usa¬ 
dos dentro de instrucciones de 
este tipo. Pero su uso es mucho 
más amplio y nos pueden aho¬ 
rrar muchos IF como veremos a 
continuación. 

Cuando en un IF se escribe 
una expresión, lo que se le está 
diciendo al ordenador es que la 
evalúe y dé un resultado, y en¬ 
tonces el IF ejecuta lo que viene 
a continuación del THEN si el 
resultado es distinto de cero, y 
no lo hace si el resultado es 
cero. Por tanto la expresión IF 
0 THEN..., no ejecutaría nunca 
la parte condicionada (la que 


está detrás del THEN) al ser el 
resultado del IF siempre cero, 
la situación opuesta de la ante¬ 
rior sería IF 1 THEN..., que se 
ejecutaría siempre debido a que 
el resultado del IF siempre es 
distinto de cero. Esto nos lleva 
al primer «truco», que consiste 
en un sistema de ahorrar tecleo 
y argumentar la velocidad de 
un programa cuando se está 
realizando una operación con 
todos los elementos de una ma¬ 
triz que no valgan cero. Nor¬ 
malmente se haría así: 

10 FOR 1=1 TO 100 (si la 
matriz es de cíen elementos) 

20 IF A(I)< > 0 THEN 
...operaciones a realizar... 

30NEXTI 


Pero se púede simplificar así: 

10 FOR 1=1 TO 100 

20 IF A(I) THEN ...operacio¬ 
nes a realizar... 

30 NEXT 1 

La razón de que quitemos la 
comparación se debe a que ésta 
devuelve un resultado no cero 
cuando se cumple (es decir, 
cuando el elemento de la matriz 
no vale cero) y cero cuando no 
se cumple (cuando el elemento 
de la matriz vale cero), pero 
esto es lo mismo que tiene al¬ 
macenado la matriz y por tanto 
nos podemos ahorrar la compa¬ 
ración, ya que el valor no im¬ 
porta para ver si ejecuta la par¬ 
te condicionada, porque el or- 
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denador sólo comprueba si vale 
cero. 

El caso opuesto a esta com¬ 
paración sería: 

ÍOFOR 1=1 TO 100 

20 IF A(I)=0 THEN ...opera¬ 
ciones a realizar... 

30 NEXTI 

En este caso sólo se ejecuta la 
parte condicionada cuando el 
elemento de la matriz valga 
cero. Usted ya estará pensando 
¡aja, aquí no se puede abreviar 
ya que queremos hacer justo lo 
contrario, es decir, ejecutar 
cuando valga cero! Pero por 
suerte el Spectrum dispone de 
otra función para estos casos. 


Se trata de NOT, y lo que hace 
es convertir cualquier número 
que no valga cero en cero y si el 
número vale cero lo convierte 
en uno. Para decirlo de otro 
modo, invierte el valor. Por ello 
podemos escribir: 

IOFOR 1=1 TO 100 


...operaciones a realizar... 

30 NEXT I 

Y en este caso las operacio¬ 
nes se ejecutarán cuando el ele¬ 
mento valga cero, ya que al po¬ 
nerle el NOT delante, el resul¬ 
tado final será uno en ese caso y 
cero en los demás. 

Pero en muchas ocasiones 


nos podemos ahorrar hasta el 
IF. Este es el caso de ciertas si¬ 
tuaciones en las que una varia¬ 
ble tiene que adoptar un valor 
si otra es cero y otro totalmente 
distinto si la segunda es distinta 
de cero. Imaginemos que nece¬ 
sitamos que «A» valga 3 si «B» 
es cero y si no que adopte el va¬ 
lor 2*B. En un principio parece 
que se podría poner A=2*B. 
Pero cuando B valga 0, A val¬ 
drá 0 y no 3 como queremos. 
Parecería que aquí hay que po¬ 
ner un IF para hacer esa asigna¬ 
ción sólo si B es distinto de cero 
y hacer A=3 en caso contrario. 
Pero no tiene por qué ser así. 

Las comparaciones entre nú¬ 
meros (=,<,>,<>, etc.) dan 
como resultado 1 si la relación 
indicada se cumple y 0 si no es 
así. Esto nos permite escribir la 
operación anterior como 
A=2*B*(B< >0) + 3*(B=0). Ya 
que cuando B valga cero, 
B < > 0 será falso, B=0 cierto y, 
por tanto, el valor de A será 
A=2*B*0+3*1, o lo que es lo 
mismo, A=3. En cambio cuan¬ 
do B sea distinto de cero, obten¬ 
dremos A=2*B* 1+3*0, es decir 
A=2*B. La expresión podría ha¬ 
berse simplificado poniendo 
A=2*B+3*(B=0), ya que la com- 


plificar es el de seleccionar el 
mayor de dos valores. Esto nor¬ 
malmente se hace con IF, den¬ 
tro del cual se pone la compara¬ 
ción a realizar. Pero otro méto¬ 
do es hacer: 

MAX=A*(A > BRB*( A <=B) 

La razón de que en la según - 


20 IF NOT A(I) THEN 


paración B< >0 es redundante 
como puede observarse volvien¬ 
do a evaluar esta expresión en 
ambos casos. 

Otro caso que se puede sim- 






























da comparación se ponga me¬ 
nor o igual en lugar de menor 
solamente se debe a que si am¬ 
bos números son iguales y sólo 
hubiéramos puesto menor, am¬ 
bas comparaciones serían falsas 
y por tanto MAX adoptaría el 
valor cero. En cambio tal como 
lo hemos puesto, cuando A y B 
sean iguales MAX adoptará el 
valor de B. El símbolo igual 
también podía haberse puesto 
en la primera comparación, 
pero nunca en las dos a la vez. 


Operadores lógicos 



Usted seguramente habrá 
usado las operaciones * y / 
en sus programas. Estos se de¬ 
nominan operadores matemáti¬ 
cos y como su propio nombre 
indica, realizan operaciones 
matemáticas con números. Se¬ 
gún esta definición, los opera¬ 
dores lógicos serán aquellos que 
realicen operaciones lógicas 
con números. Aunque esto 
puede sonar extraño, en reali¬ 
dad es muy sencillo, ya que una 
operación lógica es aquella que 
sólo distingue entre cero y cual¬ 
quier otro valor distinto de 
cero. 

Ya hemos visto un operador 
lógico, el NOT, y su modo de 
funcionamiento. Su caracterís¬ 
tica más importante es que ope¬ 
ra sobre un solo número invir¬ 
tiéndolo, de modo que si es cero 
lo convierte en uno y si es dis¬ 
tinto de cero lo convierte a 
cero. 

Además de esta operación 
existen otras dos que operan 
con dos números. La AND y la 
OR. Ambas siguen el mismo 
formato de las operaciones ma¬ 
temáticas, es decir, el primer 
operando, la operación y el se¬ 
gundo operador. 

La operación AND (Y en in¬ 
glés) devuelve un valor distinto 
de cero si el primer operando es 
distinto de cero Y el segundo 



A 

B 

A AND B 

0 

0 

0 

0 

1 

0 

t 

0 

0 

I 

1 
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Figura 1 



también. O dicho de otro 
modo, cuando alguno de los 
dos operandos es cero (o los 
dos) entonces el resultado es 
cero. Esto se puede representar 
con una tabla de verdad como 
se muestra en la figura 1, en la 
que se representa el valor de 
cada uno de los operadores y el 
valor del AND de ambos. Hay 
que tener en cuenta que en esta 
tabla cuando ponga “1” quiere 
decir «cualquier número distin¬ 
to de cero». Esto resulta espe¬ 
cialmente importante en el va¬ 
lor devuelto, ya que como vi¬ 
mos antes, las comparaciones 
devolvían un valor 1 ó 0, pero 
en este caso no necesariamente 
devuelve un 1 si ambos son dis¬ 
tintos de cero (para ser exactos 
la mayoría de las veces no de¬ 
vuelve 1), sino que puede de¬ 
volver cualquier número distin¬ 
to de cero. 

SÍ necesitamos aseguramos 
de que este valor sea uno o cero, 
se puede usar la siguiente ex¬ 
presión: 






















ABS(SGN{A AND B)) 

Donde A y B pueden ser nú¬ 
meros u otras expresiones. Cu¬ 
riosamente se puede escribir 
esta expresión con igualdades: 


de reescribir con comparado 
nes tal como sigue: 

SGN((AoOWB<>0)) 

El FOR condicional 


(A < > 0)*(B < > 0) 

La operación OR tiene un 
funcionamiento similar a la an¬ 
terior pero devuelve un número 
distinto de cero cuando cual¬ 
quiera de los dos operadores, o 
los dos, son distintos de cero. 
La tabla de verdad se da en la fi¬ 
gura 2. En ella podemos ver que 
sólo se devuelve un cero cuan¬ 
do los dos operandos son cero. 
AI igual que con el NAD, un 
uno significa «cualquier valor 
distinto de cero», por lo que 
para obtener un 1 tendremos 
que hacer 

ABS(SGN(A OR B)) 


Una de las primeras expre¬ 
siones que se aprende en el BA¬ 
SIC son los bucles FOR- 
...NEXT. Su indudable utilidad 
y su facilidad de uso lo convier¬ 
ten en una de las expresiones 
más usadas en cualquier tipo de 
programas. Pero tiene algunos 
problemas que la hacen inusa¬ 
ble en determinados casos, 
como cuando se quieren exami¬ 
nar todos los elementos de una 
matriz y si alguno es cero, en¬ 
tonces se termina sin compro¬ 
bar los restantes. 

Para solucionar esto y poder 
seguir usando el FOR, existen 
dos soluciones. Ninguna de 
ellas es «elegante» y a algún 
programador profesional no le 
puede agradar el método, pero 
es indudable que funcionan. 


Donde A y B, como antes, 
son números o expresiones. 
Esta expresión también se pue¬ 


La primera solución para sa¬ 
lir antes de tiempo del bucle es 
hacer un GO TO a la instruc¬ 
ción siguiente al NEXT. Su¬ 
pongamos que queremos exa¬ 
minar una matriz A de 100 ele¬ 
mentos y salir cuando encon¬ 
tremos alguno que valga cero, 
pero existe la posibilidad de que 
no haya ninguno que valga 
cero. Esto lo podemos hacer 
como sigue: 

10 FOR 1=1 TO 100 

20 IF A(í)=0 THEN GO TO 
50 

30 NEXT I 

40 si llega aquí no hay ningu¬ 
no que valga cero. 

50 resto de las instrucciones. 

Este método tiene la ventaja 
de que en I se conserva el nú¬ 
mero del elemento que es cero. 
Por otra parte el GO TO. sobre 
todo en programas largos, es 
algo lento. 

El segundo sistema es más rá¬ 
pido al prescindir del GO TO y 
además sale correctamente del 
bucle, aunque no conserva el 
número del elemento que es 
cero. 


10 FOR 1=1 TO 100 
20 IF A(I)=0 THEN 1=100 
30 NEXT I 

40 resto de las instrucciones. 


Al ser la comparación cierta 
se hace que I valga cien y al lle¬ 
gar al NEXT el ordenador se 
cree que ya ha hecho el bucle 
cien veces y sale. Como hemos 
dicho en este caso no se conser¬ 
va el valor de I, a menos que 
usemos otra variable auxiliar 
para almacenarlo, pero la sali¬ 
da se hace correctamente y de 
un modo más rápido. Además 
si hay más instrucciones entre 
el IF y e! NEXT las ejecuta, 
mientras que con el modo ante¬ 
rior no lo hacía. 

Esperamos que con estos pe¬ 
queños «trucos» los programas 
os salgan más pequeños y rápi¬ 
dos. 
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Gráficas con SuperBasic: 

Colores 



















En la primera parte de este articulo vimos cómo realizar 
diversos dibujos utilizando los comandos disponibles en el 
BASIC de nuestro QL, pero para que realmente sean vistosos 
hace falta añadirles un toque de color. 



L a instrucción más co¬ 
nocida que realiza esto 
es 1NK n, que nos per¬ 
mite fijar el color con 
que se hacen todos los 
dibujos a partir de que se eje¬ 
cute esta instrucción. El ran¬ 
go de n va del 0 al 7 (con 
MODE 8 activo) y cada uno 
de los valores indica un color 
distinto* Como ejemplo de su 
uso se da el listado de la figu¬ 
ra 1, que va dibujando círcu¬ 
los desplazados hacia la de¬ 
recha y cada uno de un color. 

No obstante éste no es el 
comando más espectacular 
de todos los disponibles. 
Existe uno mucho más colo¬ 
rista, FILL. Del mismo 
modo que INK, actúa sobre 
las instrucciones que se den 
después, pero no modifica el 
color fijado por INK, sino 
que rellena áreas cerradas 
con ese color. 
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Su funcionamiento es muy 
sencillo, en primer lugar se 
teclea FILL 1 para activarlo, 
a continuación se dibuja una 
figura cerrada (que esté total¬ 
mente rodeada por líneas) 
por medio de las instruccio- 
nes LINE, CIRCLE o 
ELLIPSE y al dibujarla el or¬ 
denador, automáticamente 
la rellenará con el mismo co¬ 
lor de la tinta. Por último, 
para desactivar esta modali¬ 
dad se teclea FILL 0. 

En listado 2 se ve la dife¬ 
rencia entre FILL 0 (el modo 
en el que normalmente está 
el QL al encenderlo) y FILL 
1. En la primera parte del 
programa (líneas 110-130) se 
crea un cuadrado sin rellenar 
en la parte izquierda de la 
pantalla. En las líneas si¬ 
guientes se vuelve a hacer lo 
mismo a la derecha de la 
pantalla pero en esta ocasión 






































se ha indicado FILL I y e] 
cuadrado que se crea se relle¬ 
na del mismo color. 

Un ejemplo más elabora¬ 
do del uso de este comando 
es el del listado 3, donde con 
unas sencillas instrucciones 
de trazado de arcos y el co¬ 
mando FILL, se logra dibu¬ 
jar unos labios sonriendo. 


Cambiando el color 

Hasta ahora todas las mo¬ 
dificaciones de color se han 
hecho previamente a ios di¬ 
bujos, pero es posible hacer¬ 
las con posterioridad. Esto 
permite ver diversas combi¬ 
naciones y hasta dotar de 
cierta animación a los dibu¬ 
jos. El comando utilizado 


para ello es RECOL, cO, el. 
c2, c3, c4, c5, c6, el. Donde 
cO, el... c7 son los códigos de 
los distintos colores que se 
reasignan de nuevo, corres¬ 
pondiendo la combinación 
RECOLO, 1,2, 3, 4, 5,6, 7 a 
la disposición al encender. 

Por tanto si queremos que 
el que es blanco al encender 
{el séptimo) cambie súbita¬ 
mente a rojo (el segundo) 
basta hacer: RECOL 0, 1,2, 
3, 4, 5, 6, 2 dejando los de¬ 
más colores con su mismo 
número de orden. Aplicando 
esto al ejemplo de los labios, 
podemos dar la impresión de 
que éstos se abren y se cie¬ 
rran rápidamente por medio 
de un par de sencillas modifi¬ 
caciones al programa origi¬ 
nal de modo que quede como 
se indica en el listado 4. 
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Más cuadrados 

Ya hemos visto antes un 
método de hacer rectángulos 
de colores, pero existe uno 
más fácil aún con el que no 
hace falta activar el FILL. 
Esto se consigue con el co¬ 
mando BLOCK an,al,y,x,c. 
Siendo “an” la anchura del 
rectángulo, “al” la altura, 
“x,y” la coordenada de la 
parte superior izquierda y 
“c” el color con que se quie¬ 
re rellenar. En el listado 5 se 
encuentra un programa que 
hemos denominado ciudad. 



100 

cus 




110 

FOR i—i TO 110 




120 

INK i HÜD 8 




130 

CIRCLE 1,50,50 




140 

NE5ÍT i 




150 

STOP 





100 

CLS 




1 10 

INK 6 




120 

FILL 1 




130 

LIME 5,5 TO 5,60 TO 60,6u TO 60,5 TQ 5,5 

140 

FILL 0 




150 

LINE 65,5 TO 65,60 TO Í20,t>O TO 120,5 TO 65,5 

iao 

STOP 





100 

PAPER 1 : INK 2:CLS 




1 10 

FILL 1 




120 

ARC 30,50 TD 00,70,-1.5 

TD 

80,28,-.3 Tü 

30 , 50,- . 75 

130 

FILL 0 




131 

FILL 1 




132 

ARC 130,50 TO 80,70,1.5 

TO 

80,20,.3 TD 

130,50,.75 

133 

FILL 0 




140 

FILL 1:1NK 7 




150 

ARC 35,50 TO 125,50,1.2 

TO 

35,50,1.2 


160 

FILL 0:INK 2 




170 

LINE 35,50 TO 125,50 




180 

FOR k=50 TO 110 STEP 10 




190 

LINE k,36 TO k,64 




200 

END FOR k 





100 

PAPER 1 : INK 2:CLS 




110 

FILL 1 




i 20 

ARC 30 , 50 TQ 80,70,-1.5 

TD 

80,20,-.3 TO 

30,50,-.75 

130 

FILL 0 




140 

FILL 1 




150 

ARC 130,50 TO 80,70,1.5 

TO 

80,20,.3 TO 

130,50,.75 

160 

FILL 0 




170 

FILll 1: INK 7 




100 

ARC 35,50 TO 125,50,1.2 

TO 

35,50,1.2 


190 

FILL OiINK 2 




200 

LINE 35,50 TO 125,50 




210 

FOR k=50 TO 110 STEP 10 




220 

LINE k,36 TO k ,64 




, 230 

END FOR k 




1 240 

RECOL 0,1,2,3,4,5,6,2 





ya que crea bloques rectan¬ 
gulares de diversa forma y ta¬ 
maño de modo que parece 
una ciudad de rascacielos. 

Algo más elaborado es el 
sexto listado, en el que he¬ 
mos empleado una técnica 
denominada “recursión” y 
que no poseen la mayoría de 
los otros lenguajes. Esto nos 
permite diseñar procedi¬ 
mientos que se llaman a sí 
mismos. En este caso “caja” 
dibuja una cruz de un color y 
en cada uno de los cuatro 
cuadrados resultantes vuelve 
a llamarse a sí misma para 
crear otras cuatro cruces, 
que a su vez vuelven a llamar 
a caja. 


La tortuga 

Otra de las habilidades de 
dibujo del QL es la denomi¬ 
nada «tortuga». Idea que tie¬ 
nen otros lenguajes, como el 
Logo o el Smaltalk que con¬ 
siste en que disponemos de 
una tortuga que tiene un lá¬ 
piz y a la que podemos dar 
instrucciones de movimien¬ 
to. Las principales son PEN- 
DOWN, que apoya el lápiz 
en el papel y, por tanto al mo¬ 
verse dibuja; PENUP que lo 
levanta; MOVE n, que avan¬ 
za n puntos en la dirección 
en que esté mirando; TURN 
a, que gira a la derecha tan¬ 
tos grados como indique “a” 
desde la dirección actual y 
TURNTO a, que gira tam¬ 
bién “a” grados, pero no des¬ 
de donde apunta “a”, sino 
desde la posición en la que 
mira hacia arriba, que en 
este comando se considera la 
inicial. La diferencia entre 
TURN y TURNTO se pue¬ 
de ver en las figuras 7a y 7b. 
En ambas la tortuga está a 45 
grados de la posición vertical 
(denominada origen) y tam- 



















100 calor=RND(7) 

110 altura FíMD (10 T0 200) 

120 anchura- RNDUO Jü 160) 

130 posician^RND í 230) 

140 BLGCK anchura, al tura,püsicion,200-altura.color 
150 GO TO 100 


IDO 

PAPER 7:CLS 


110 

caja 100,10,120,0 


120 

STOP 


130 

DEFine PRÜCedure caja (y;,y,s,n) 


140 

LÜCal a , b , k 0 , yO,sD 


150 

IF n—5 THEN RETurn 


160 

BLQCK 1 . 6*s,«,y ,n 


170 

FÜR a—Q TO 1 


ISO 

FOR b=Ü Tü 1 


190 

xO e K+a*6.4*s/7 


200 

y0=y+b+4*s/7 


210 

sQ»3*s/7 


220 

caja k 0 , y ó , sO t n+1 


230 

END FüR b 


240 

END FOR a 


250 

RETurn 


260 

END DEFine caja 



100 ROINT 10,10 
110 PENDOWN 
120 FOR i = l TO 4 
130 NOVE 50 

140 TURN 90 

150 END FGR i 


100 SCALE 100,0,0 
110 hODE 4 
120 dragS^'dd" 

130 FüR Q—1 TO 12 


140 cadena g 


150 CLS 

1 60 AT 0,0: PRINT "Curva L)ragon ,í \"Ni vel " f g 
170 dibuja_cadena g 
180 END FOR g 

10QO DEFme PRQCaüure cadena 
1U10 LOCa1 t,k,a$ 

1020 a$- M " 

1030 FüR t=l Tü LENÍdrag*) 

1040 k=t Müü 2 


1050 
1 060 
1070 
1 OSO 
1090 
1 100 
1110 
i 120 
1 130 


1F dragl ít)-"d" AND k=l 
IF dr a.g# í t) -= "d “ AND k=0 
IF dragf í t> =,< i u AMD l: = l 
IF drag$ ít ) => n i ” AND k=ü 
END FOR t 


THEN át=aWdi. ,f 
THEN a*=a*b"dd H 
THEN 

THEN a$=ajM[“id h 


drag$=af 

END DEFine cadena 

DEFine PRQCedure dibujalcadén*Ig) 
LDCal t , d 


1140 d«65/<1,414) g 


1150 POINT 35 T 35 
1160 TURNTO 135-45*g 
1170 PEWDQWN 

USO FÜR t-1 Tü LEN(draq£) 

1190 í F dragí (t > = " i ,á THEN TURN 90 
1200 IF dragir í t > ="d 14 THEN TURN -90 
1210 MDVE d 
1220 END FÜR t 

1230 END DEFine di bu ja__cadena 



ORIGEN 



Fijara 7b. 


bién en ambas se le manda 
girar 90 grados. La diferencia 
estriba en que en el primer 
caso se le dice TURN, que¬ 
dando a 90 grados de la posi¬ 
ción anterior y a 135 del ori¬ 
gen, mientras que en la se¬ 
gunda se dice TURNTO y 
queda a 90 grados del origen 
y a 45 de la posición ante¬ 
rior. 

En la figura 8 se da un sen¬ 
cillo listado para hacer que 
nuestra tortuga dibuje un 
cuadrado y por último en la 
figura 9 se utiliza la tortuga 
de nuevo para crear la deno¬ 
minada curva del dragón, un 
efecto realmente impresio¬ 
nante conseguido con muy 
pocas líneas de programa. 
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Con un tamaño más de tecla¬ 
do que de ordenador completo 
y envuelto en una bonita carca¬ 
sa de plástico negro, el QL es 
una máquina que asombra a 
muchos por las posibilidades 
que ofrece. Pero para hacer po¬ 
sible esto, la gente de Sinclair 
ha tenido que trabajar mucho y 
crear un nuevo concepto total¬ 
mente distinto a los realizados 
previamente, como explicamos 
en este artículo. 

Para abrir el ordenador se 
quitan diez tomillos dejando el 
ordenador dividido en dos par¬ 
tes. Por un lado el teclado, que 
va cubierto de una placa metáli¬ 
ca, y en la parte inferior los mi- 
crodrives, la fuente de alimenta¬ 
ción y la placa de circuito im¬ 
preso que constituye el corazón 
del ordenador. 

El 68008 


Detalle de los microdrives. Estas unidades se 
encuentran situadas a la derecha de la placa 
principal. Detrás se puede ver el radiador de la 
fuente de alimentación. 



En esta perspectiva desde la izquierda se puede ver 
un primer plano del conector de expansión al que se 
conectan las unidades de disco y las ampliaciones 
de memoria. 


En la parte izquierda de la 
placa se encuentra el micropro¬ 
cesador 68008. Este es el encar¬ 
gado de hacer que el QL funcio¬ 
ne. En lugar de elegir uno de 
tantos microprocesadores de 8 
bits (Z80, 6502, 6809) como 
otros fabricantes, Sinclair direc¬ 
tamente saltó a uno de tercera 
generación. El 68008 es miem¬ 
bro de una familia de sofistica¬ 
dos procesadores de 16/32 bits 
que se presentaron en 1979. Es¬ 
tos están orientados hacia el 
programador, ya que poseen 
una estructura intema muy ver¬ 
sátil. Posee 16 registros de pro¬ 
pósito general de 32 bits, un 


contador de programa de 32 
bits y un registro de estado de 
16 bits. Soporta cinco tipos dis¬ 
tintos de datos: bits , BDC {4 
bits), bytes, palabras (16 bits) y 
palabras largas (32 bits). Ade¬ 
más de esto existen 14 modos de 
direccionamiento distintos, que 
incluyen los de postincremento, 
predecremento, offset e indexa- 
do. Por último hay 56 instruc¬ 
ciones distintas con múltiples 
variantes, lo que le proporciona 
una flexibilidad asombrosa. 

La única diferencia con su 
«hermano mayor», el 68000, es 
que el bus de datos del QL es de 
8 bits, mientras que el de aquel 


es de 16, por lo que las instruc¬ 
ciones de lectura y escritura en 
memoria son más lentas. Pero 
como contrapartida se ha redu¬ 
cido costo en la memoria y en 
los circuitos encargados de con¬ 
trolar los periféricos. 

Intel 8049 

Este es otro microprocesador 
que lleva el ordenador y está si¬ 
tuado en el lado opuesto de la 
placa. Se encarga de aliviarle 
trabajo al 68008 realizando ta¬ 
reas secundarias, tales como 
controlar el teclado, el genera¬ 
dor de sonido y el puerto serie 




El QL una vez abierto. Se puede ver en la parte 
inferior la placa metálica que cubre el teclado. En 
la parte superior está la placa principal, los 
mictodrives (a su izquierda) y la fuente de 
alimentación debajo de éstos. 



Conectares 

El QL viene bien provisto de 
conectares para múltiples usos. 

En la parte trasera existe gran 
cantidad de conectares. De iz¬ 
quierda a derecha nos encontra¬ 
mos con el de expansión de 
ROM. que permite meter un 
cartucho de 32 K. En los prime¬ 
ros modelos se usó como suple¬ 
mento para incorporar parte del 
sistema operativo, ya que no ca¬ 
bía lodo en la memoria princi¬ 
pal. Actualmente está destinado 
para poder usar determinados 
programas que saldrán en for¬ 
mato de cartucho. 

A continuación se encuen¬ 
tran los dos conectares de joys- 
tick , que no tienen un formato 
estándar, por lo que para conec¬ 
tarle un mando de este tipo ha¬ 
brá que hacer un cable especial. 
Seguidamente, y con un conec¬ 
tar similar, se encuentran los 
dos del RS 232 que se destinan 
a controlar la impresora y para 
comunicaciones con otros orde¬ 
nadores. 

A su lado están el conectar de 
televisión (del tipo habitual 
RCA) y un DIN de ocho puntas 
que da salida RGB para moni¬ 
tores. Finalmente a la derecha 
se encuentran los conectores de 
la red local. 


Los microdrives 


La placa principal del QL. en la cual se hallan los 
dos microprocesadores, la ROM y la RAM. El 
68008 es el que tiene la placa dorada. 


RS 232; dejando la CPU libre 
para ejecutar los programas del 
usuario. Su inclusión también 
ha sido necesaria para la correc¬ 
ta sincronización de todas aque¬ 
llas tareas que requerían una 
medición precisa del tiempo, 
tarea que no es posible con el 
procesador principal, ya que 
éste está basado en interrupcio¬ 
nes y éstas hadan imposible 
medir intervalos correctamente. 

La ROM 

Situada en la parte central 
trasera de la placa y formada 
por dos circuitos integrados con 
total de 32 Kbytes, contiene el 


sistema operativo y el SuperBa- 
sic. 

La RAM 

La memoria disponible para 
almacenamiento de datos, pro¬ 
gramas y ios 32 K de la memo¬ 
ria de vídeo es de 128 K, repar¬ 
tidas en 16 circuitos situados 
delante de la ROM. Debido a 
que el 68008 es capaz de direc- 
cionar 1 megahyte de memoria, 
queda suficiente espacio de me¬ 
moria para ampliar. Aunque 
todavía no ha habido anuncio 
oficial de Sinclair de un produc¬ 
to de este tipo, múltiples fabri¬ 
cantes lo ofrecen ya. 


Estos dispositivos son la al¬ 
ternativa ofrecida por Sinclair 
al almacenamiento en cassette y 
ofrecen mucha mejor calidad 
que este sistema además de 
mayor velocidad. Como con¬ 
trapartida hay que indicar que 
son más delicados de manejo. Si 
los comparamos con los disket- 
les de otros ordenadores, se ve 
que tienen menos capacidad (de 
80 a 100 K, mientras los discos 
tienen de 250 a 800 K) y son 
más lentos (15 K de velocidad 
de transferencia), pero posee 
una contrapartida muy intere¬ 
sante que es el precio, ya que si 
se hubiesen incluido discos en 
la configuración básica el pre¬ 
cio habría subido considerable¬ 
mente. 
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Vendo interface progra¬ 
mare para joystick de Inves- 
trónica por 4.500 ptas. nego¬ 
ciables. Preguntar por Anto¬ 
nio en el <91)741 03 26. 


¡S.O.S.! Vendo urgente¬ 
mente ordenador Oric Atmos 
en perfecto estado, con revis- 

) tas, trucos personales, joys- 
tick nuevo sin interface, un 
cassette con sus cables, jue¬ 
gos como Panic, Lone Rai- 
der. Defender, etc. Escribir a 
Luis García Arroyo. Mara- 
gall, 38. 3."-3. Ripollet (Bar¬ 
celona). 


Compro el número 1 de 
Todospectrum. José Ramón 
Arauzo. Kalebarria,2. l.°-D. 
Durango (Bizkaia). Tel.: (94) 
681 29 29 


Vendo Sinclair ZX Spec- 
trum 48 K con cables, trans¬ 
formador y manual en caste¬ 
llano. Buen estado. También 
regalo 150 juegos últimas no¬ 
vedades; West Bank, Ex- 
ploading Fist, etc. Junto al 
ordenador también doy mo¬ 
nitor profesional especial 
para ordenadores con todos 
sus accesorios, lodo por 
40.000 ptas. Escribir o lla¬ 
mad a Rafael de ¡Vlingo Gil. 
Diana, 13. G. 28002 Ma¬ 
drid. TeL: (91) 741 88 59. 


® 


Vendo lápiz óptico Dk ’tro- 
nics completamente nuevo 
con cassette de demostra¬ 
ción, interface y estuche ori¬ 
ginal por sólo 4.500 pías. Sin 
más gastos de envío. Escribir 
a José Antonio Rodríguez 
Ovalle. Apartado 28 Villa- 
| franca del Bierzo (León). 
Precio a discutir. 


) 


{ 


( 


Intercambio o vendo (muy 
baratos) programas para 
Spectrum 16 y 48 K. Escribir 
a: Fidel García. Torrecampo, 
71. Vua de Córdoba (Córdo¬ 
ba). 


Vendo lote formado por 1 
joystick más interface tipo 
Kempston, 65 programas de 
los mejores juegos y utilida¬ 
des. 1 libro de programación 
Basic, revistas (1 Your Com¬ 
puter, 3 Micromanías, 5 To¬ 
dospectrum. 19 Microhob- 
by. 11 ZX). Todo por 7.000 
ptas. contrareembolso. Es¬ 
cribirá Adolfo Velasco Cres¬ 
po. Avda. de España, 5. Pon- 
ferrada (León). 


J 


Vendo ZX Spectrum 48 K 
en perfecto estado acompañ- 
do por revistas y software va¬ 
lorados en más de 150.000 
ptas. Todo por sólo 60.000 
ptas. Escribir a: Carlos José 
Arnaiz. Ramón y Cajal, 1. 
Bajo. Miranda de Ebro (Bur¬ 
gos). 


Vendo varios libros de in¬ 
formática y para el ZX Spec¬ 
trum. como nuevos. Escribir 
a: Femando Castán. Padre 
Manjón, 34. 5.°-E. 50010 
Zaragoza. 


nuy 
rara / 
ibir 1 

i nA 


L 


Vendo ZX Spectrum 48 K. 
más 50 programas comer¬ 
ciales de reciente aparición 
(Exploding Fist. Herbéis, 
Boxing, Dambusters, Hy- 
persports...). Interesados lla¬ 
mar al tel: (96) 35182 76 de 
Valencia y preguntar por 
Antonio, de 19a 22 horas. 

Vendo ZX 81 más aplia- 
ción de 16 K con manual en 
castellano, fuente de alimen¬ 
tación, programas (3D 
Monster Maze) por 10.000 
ptas. Llamar a: Manuel Gre¬ 
gorio. Perú, 4. l.° izda. Va- 
1 lado lid. Tel.: (983) 39 68 73 
(llamar de 9 a 11 h.).. 


Vendo impresora Seikos- 
ha 50-S, no necesita interfa¬ 
ce. Llamar noche al tel.: (93) 
783 55 39. Preguntar por 
Jordi Martínez. Precio a 
convenir. Tiene garantía. 


Vendo ZX Spectrum 48 K 
en buenas condiciones con 
fuente de alimentación, ca¬ 
bles, manual de instruccio¬ 
nes y 7 juegos , por 29.000 
ptas. Interesados ponerse en 
contacto con: José María 
Pipa. Tel: (91) 733 03 00. 
ext. 308. Madrid. 


Vendo o cambio máquina 
de marcianos bastante buena 
y con diversas fases, se llama 
Galaxy II y la vendo por el 
sorpredente precio de 4.500 
ptas. (en el mercado está en¬ 
tre 8.000 y 10.000 ptas.) o 
cambio por programa para 
Spectrum. Interesados lla¬ 
mar a: Daniel Olive Subías. 
Del Puente. 3. Vilavert (Ta¬ 
rragona). Tel.: (977) 

87 64 53. 
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Cuando se canse de jugar . 

PONGA SU SPECTRUM 
A TRABAJAR ¡¡ 


Con el sistema de disco DISCOVERY 1 
con acceso aleatorio y sus formidables 
prestaciones: 

* Disco standart de 3 t 5 M y 180 K. de capacidad. 

- Interface Centronics incluido, 

- Salida para monitor monocromo. 

- Interface joystick. incluido, 

- Alimentación a 220 V, 

Y los depurados programas que 5ILDG 
ha creado para sacar el máximo partido 

de su Spectmm o Spectrum + 



SISTEMAS LOGICOS GIRO HA, S.A. 

Avia, Un Bar™ 24 í 7005 m. [»72] 21 71 00 


BASE DE DATOS .-Versión similar a La de ordenadores mayores a una 
fracción de su coste. Hasta un total de 4.000 fichas por disco. Ideal 
para mailíng, canas personalizadas, fichero Chentes, etc... 


I TRATAMIENTO DE TEXTOS Convi erte a su Spectrum, con ayuda de 

una impresora en una auténtica máquina de escribir electrónica. 

Justifica márgenes, busca palabras, inserta, mezcla párrafos, ect. 

Hasta un total de 100 folios en cada disco. 


TRANS - EXPRESS *- Para pasar a disco cualquier programa 
I procedente de casette, esté protegido o no. Efectivo con la 
| mayoría de programas en circulación, 

Í Ti/Ri-flTTY Partiendo de un transmisor adecuado decodifica las 
señales de teletipo, presentando los mensajes en pantalla. Recibe 
emisoras comerciales y de aficionados. 


PQ DEMOS PASARLE A DISCO CUALQUIER PROGRAMA COMERCIAL QUE LE 

INTERESE. 


SI CREE QUE EL SPECTRUM TIENE UN TECLADO POCO 
ORTODOXO PARA USARLO COMO ORDENADOR SERIO 
TIENE VD TODA LA RAZON 

POR ELLO, TAMBIÉN LE OFRECEMOS EL MEJOR TECLADO 
PROFESIONAL QUE EXISTE EN LA ACTUALIDAD: EL SAGA 3 
ELITE. 


i 

í 


TECLADO SAGA 3 + SPECTRUM + DISC0VERT. el sistema informático 
completo más económico del mercado 


EN PREPARACIÓN: CONTABILIDAD, FACTURACIÓN, DECLARA¬ 
CIÓN RENTA 1985, etc. 


PROTEJA SU SPECTRUM PLUS CON ESTA 
PRACTICA FUNDA 



Aproveche la oportunidad de mantener 
como nuevo su Spectrum Plus 
con esta tunda, y beneficíese 
de un 30% de descuento 
sobre su precio normal. 


A UN PRECIO ESPECIAL 


OFERTA LIMITADA 
Y EXCLUSIVA PARA 
NUESTROS LECTORES 





































BASIC PROGRAMACION 


DISEÑO DE GRAFIC 


Editorial: Ediciones SM 
Autores: Lowy Frutos, 

Gallego Palomero, 

Mansilla Romo 
Páginas 225. 

Dentro de! extenso número de 
libros publicados en los últimos 
años sobre informática destacan, 
sobre todo, los dedicados al apren¬ 
dizaje del lenguaje BASIC y es. 
dentro de éste grupo, donde pode¬ 
mos incluir éste nuevo titulo. BA¬ 
SIC Programación, publicado por 
Ediciones SM y cuyos autores 
{dato a tener en cuenta) son un 
grupo de profesionales españoles. 

Tanto la estructura como la dis¬ 
tribución de las materias que abar¬ 
ca lo sitúan preferentemente como 
un libro didáctico, en el que cada 
capítulo o tema (consta de 14 capí¬ 
tulos y dos apéndices) va desglo¬ 
sando la estructura del BASIC, su 
funcionamiento, sentencias y apli¬ 
caciones prácticas ilustradas con 



BASIC 

PROGRAMACIÓN 


É. Lówy FniWi - A.E. Callejo P*lomn™ 
5. Mhieíii* Rotm 



gran profusión de ejemplos y pro¬ 
gramas. Los capítulos tienen sec¬ 
ciones fijas que incluyen la des¬ 
cripción y resumen de las senten¬ 
cias. desarrollo de un programa de 
poca extensión y explicación de su 
funcionamiento y un buen número 
de ejercicios diversos para el usua¬ 
rio y de recapitulación, además de 
otros problemas resueltos por los 
autores de la forma más idónea. 

En principio el libro no está re¬ 
dactado para un determinado sec¬ 
tor de usuarios y máquinas. Su fa¬ 
cilidad de comprensión lo hacen 
apto para cualquier usuario, tenga 
poca o mucha experiencia con el 
BASIC o con cualquier otro len¬ 
guaje, ya que tanto los ejercicios 
como la descripción y uso de ¡as 
sentencias están suficientemente 
explicadas como para que no pre¬ 
senten ningún problema. Todos 
los programas y ejercicios pueden 
ejecutarse en cualquier microorde¬ 
nador, ya que se utilizan senten¬ 
cias estándar del BASIC y, en 
aquellos casos en los que determi¬ 
nadas sentencias no sean aceptadas 
por algún ordenador, se especifica 
cuál y se establece la modificación 
oportuna. Aparte de esto, es acon¬ 
sejable utilizar el manual del BA¬ 
SIC del ordenador en que se está 
trabajando junto con el libro de 
aprendizaje. 

El libro incide fundamental¬ 
mente en las posibilidades mate¬ 
máticas y de cálculo del BASIC, 
exponiendo e invitando al usuario 
con una gran variedad de ejemplos 
y ejercicios, para que utilice su 
máquina como una potente calcu¬ 
ladora. sirviendo de este modo 
como un libro de apoyo al estu¬ 
diante para repasar las lecciones 
aprendidas. 

También resulta especialmente 
útil a los usuarios que pretenden 
aprender, de una forma clara y 
amena, a programar su ordenador 
para realizar sus propios progra¬ 
mas de gestión, diversión, etcétera. 


Autor: I. O. Angel-B. J. Jones 
Editorial: ANAYA Multimedia 
Páginas: 387. 

Resulta evidente, incluso para 
aquellas personas no introducidas 
en el mundo de la informática, que 
uno de los campos más apasionan¬ 
tes y vistosos de los ordenadores, es 
el dedicado a las representaciones 
gráficas en sus múltiples variantes. 
Una demostración clara de esto 
son los juegos que invaden todas 
las tiendas, en los que se puede ver 
un amplio desarrollo gráfico. 

Dentro de esta corriente «gráfi¬ 
ca» han surgido múltiples libros 
que intentan dar una explicación 
clara y sencilla de su manejo para 
que el lector pueda realizar sus 
propios programas. Este es el caso 
de «Diseño de gráficos y vtdeojuc- 
gos». un libro que hace exhaustivo 
estudio de los gráficos del Spec- 
trum en todas sus variantes. Esto 
mismo podría decirse sin duda de 
muchos otros, pero en este caso 
hay diferencias importantes. En 
primer lugar no se parte de la idea 
del recetario de trucos sencillos 
para usar en los programas, sino 
que se da la base matemática nece¬ 
saria para su comprensión usando 
la geometría del plano y del espa¬ 
cio que muchos estudiantes ha¬ 
brán tenido que aprender. Esto 
hace que aunque en principio es 
más difícil de entender que otros 
libros, si se Ice atentamente la 
comprensión del funcionamiento 
de ios gráficos, y por tanto su ma¬ 
nejo. es mucho más fácil. 

El otro detalle que lo diferencia 
de otros libros es que incluye una 
cinta con algunos programas de¬ 
mostrativos y lo que es más impor¬ 
tante, subrutinas avanzadas que se 
pueden introducir dentro de los 
programas que haga el lector. 

El índice del libro consta de 15 
capítulos y dos apéndices, lo que 
cubre prácticamente todo el espec- 


























DS Y VIDEOJUEGOS 


tro de variantes gráficas de! Spec- 
trum. 

A continuación se pasa al estu¬ 
dio de los caracteres gráficos con 
indicaciones para usar los ya exis¬ 
tentes y para crear otros nuevos. 
Como aplicación de estos concep¬ 
tos se dan listados de algunos jue¬ 
gos, como el maslermind y un sen¬ 
cillo ajedrez. 

En el siguiente capítulo se habla 
de las aplicaciones estadísticas de 
los gráficos, realización de histo- 
gramas (gráficos de barras) y modo 
de calcularlos y representarlos. 

Siguiendo con el tema de repre¬ 
sentación de objetos tridimensio- i 
nales se ve posteriormente el tema 
de los algoritmos de líneas ocultas. 


Estos son sistemas de representa¬ 
ción de objetos en los que se calcu¬ 
lan que partes no se ven debido a 
que están detrás de otras y en con¬ 
secuencia no se dibujan. 

Como final se incluye una parte 
destinada a los manejos avanzados 
de gráficos y sus aplicaciones. En¬ 
tre estas destacan las de los video¬ 
juegos. a los que se dedica un capi¬ 
tulo entero explicando paso a paso 
su realización. 

El libro es un interesante tratado 
del tema de los gráficos en todas 
sus variantes y resulta interesante 
para todas aquellas personas que 
quieran realizar una profu ndiza- 
ción seria de este tema. Cabe seña¬ 
lar también la cuidada traducción, 
realizada con un cuidado y esmero 
que debería servir de ejemplo a 
otros libros. 


—so rom — 

SALON PROFESIONAL DE 
LA INFORMATICA Y OFIMATICA 


Del 28 <Je enero al 1 de febrero, se celebrará en Sevilla, 
GOTO 86 (II Salón de la Informática. Ofimática y Afines). 

El Certamen que se celebró en su primera edición, 
dedicado únicamente a la Informática se amplia en esta 
edición a la Ofimática siguiendo la opinión de los 
expositores en GOTfl'85. 

De esta forma, el Salón se enriquecerá con esta 
ampliación cumpliendo el objetivo de dar cabida en esta 
muestra a todos y cada uno de los sectores profesionales 
a que va dirigida. 

GOTO'86. está organizado por la Institución de Feria de 
Muestras Iberoamericana de Sevilla, en colaboración con 
AIESEQ-SEVILLA, Asociación Internacional de Estudiantes 
de Ciencias Económicas y Empresariales. 

Coincidiendo con el Certamen y en el Salón de Actos de 
la Feria, se desarrollará un calendario de Jornadas 
Técnicas, dirigidas básicamente al Empresariado. Estas 
Jornadas Técnicas están organizadas por la Consejería de 
Industria de la Junta de Andalucía y la cátedra de 
Informática de la Facultad de Ciencias Económicas y 
Empresariales de Sevilla. 


B ELECTRONICA 
frSANDOVALsA 
DISTRIBUIDORES DE: 
COMMODORE-64 
ORIC-ATMOS 
ZX SPECTRUM 
SINCLAIR ZX 81 
ROCKWELL’-AIM-65 
DRAGON-32 
NEW BRAIN 
DRAGON-64 
CASIO FP-200 

ELECTRONICA SANDOVAL. S A 
C/ SANDOVAL. 3. 4. 6 28010-MAQRID 
Teletonos: 445 75 58 - 445 76 00 - 445 18 70 
447 42 01 

C/ SANDOVAL, 4 y 6 
Centralita 445 18 33 (8 lineas) 


ORDENADORES 

• QL - AMSTRAD -SPECTRUM 

PROGRAMAS 


• Contabilidad QL . 20.000 ptas. 

• Nóminas QL . 25.000 ptas. 































FIGURA 1 

10 CLEAR 65367: BORDER 4: PAPE 
R 4: INK 4: CLS : PÜKE 23658.8: 
POKE 65472*52: POKE 65473,74: P.0 
KE 23609,100 

15 LOAD ""CODE 65368,64: INK 9 
: CLS 

20 PRINT FLASH 1; AT l,9s 1, INST 
RUCCIONES!" 

30 PRINT JUEGAS AL MUS DE 

4 REYES” * 11 EL JUEGO ES A 25 PI 
EDRAS" 1 " EN TOTAL 5 AMARRACÜS"’ 
" CONTESTA A LAS PREGUNTAS CON: 


40 PRINT ' 11 S PARA CONTESTAR 
SI" N PARA N0" ,,M E PARA 

ENVIDO"O PARA ORDAGO" 

50 PRINT ? " SI QUIERES CAMBIA 
R TODAS LAS CARTAS PULSA ENTE 
R" 

60 PRINT AT 21,3;“PULSA UNA TE 
CLA PARA JUGAR": PAUSE O: CLS 
80 REM CONDICION DE RANDOMIZE 
82 RANDOMIZE 

100 REM VARIABLES DEL PROGRAMA 
103 LET pie*=0: LET pi esp=0: LET 
amar=0: LET amarsp=0 


■ I 











/ 










¿Quién no ha visto alguna vez las 
frases «ordago», «envido», «paso» en 
alguno de los bares o tascas que pue¬ 
blan la geografía española? El mus es, 
indudablemente, uno de los 1 juegos 
con más raigambre nacional y por eso 
el programa cuyo listado damos y que 
nos ha sido remitido por Santiago 
Fernández Mayoral, es seguro que 
hará feliz a más de uno, ya que es ca¬ 
paz de jugar contra un oponente hu¬ 
mano, realizando jugadas típicas y 
contando amarracos, aunque eso sí, 
no es capaz de hacer señas. 

Hay que reconocer que el ordena¬ 
dor no juega muy bien, ya que es rela¬ 
tivamente fácil ganarle; ahora bien, ai 
estar escrito en BASIC cualquier osa¬ 
do puede tomar el listado del progra¬ 
ma y mejorarlo para que sea más atre¬ 
vido u osado. 

El juego se compone de un listado 
principa] que se da en la figura 1 y de 
una subrutina en lenguaje máquina 
que se crea en el listado de la figura 2 
y que es la encargada de crear los ca¬ 
racteres gráficos. Para crear una cinta 
que funcione basta teclear el primer 
programa, salvarlo en cinta y a conti¬ 
nuación teclear el segundo y ejecutar¬ 
lo, con lo cual graba en la cinta, a 
continuación del programa principal, 
los códigos que posteriormente éste 
lee. 

Hay que hacer notar que estos ca¬ 
racteres se muestran ya definidos en 


el listado, por lo que cada vez que 
aparezca uno, hay que introducir el 
carácter gráfico correspondiente se¬ 
gún se muestra en la tabla que se in¬ 
cluye. 

Para aquellos interesados en modi¬ 
ficarlo damos la descripción de los 
bloques principales del programa: 

Líneas 10 a 100: presentación del 
programa y randomize. 

Líneas 100 a 130: adjudicación de 
variables del programa. 

Línea 136: subrutina de cuenta de 
piedras y amarracos. 

Línea 150: adjudicación de varia¬ 
bles a la jugada. 

Líneas 200 a 490: subrutina que da 
valores a las cartas y las dibuja. 

Líneas 500 a 990: condiciones para 
que haya mus o no. 

Líneas 1000 a 1990: jugada a gran¬ 
de con las diversas condiciones de en¬ 
vido, ordago, paso, etc. 

Líneas 2000 a 2990: lo mismo a pe¬ 
queña. 

Líneas 3000 a 3990: lo mismo a pa¬ 
res. 

Líneas 4000 a 4990: lo mismo a 
juego. 

Líneas 5000 a 5990: cuenta final de 
puntos y vuelta a la línea 150. 

Línea 6000: subrutina que dibuja 
tas cartas de Spectrum. 

Línea 7000: pregunta si hay nueva 
partida y despedida. 


106 LET tat=0: LET totsp=0 

109 LET sp=Q 

112 LET t-150 

115 LET w=136 

130 REM TABLERO CONTADOR 

133 PRINT AT 7, 12; "SPECTRUM" ; AT 
14,12;" JUGADOR" 

134 PRINT AT IB,O;"AMARRAC.”;AT 
18,25;"PIEDRAS";AT 3,0;"PIEDRAS 

";AT 3,25;"AMARRAC" 

135 GO SUB w: GO TO 150 
137 IF pie>=20 THEN LET amar=a 

mar+4: LET pie=pie~20 


138 IF pie>=15 AND pie<20 THEN 

LET amar=amar+3; LET pie=pie-15 

139 IF pie>=10 AND pie<15 THEN 

LET amar=amar+2: LET pie=pie—10 

140 IF pie>=5 AND pie<10 THEN 
LET amar=amar+1: LET pie=pie—5 

141 IF piesp>=20 THEN LET amar 
sp=amarsp+4: LET piesp=piesp—20 

142 IF piesp>=15 AND piesp<20 T 
HEN LET amarsp=amarsp+3: LET pi 
esp=piesp—15 

143 IF piesp>=10 AND piesp<15 T 
HEN LET amarsp=amarsp+2; LET pi 
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esp=pieap-10 

144 IF piesp>=5 AND piespílO TH 
EN LET amarsp=amarsp+í: LET pie 
sp=pi e-sp—5 

145 LET tot=amar*5+pie 

146 LET. totsp=atnarspt5+pi esp 

148 PRINT AT 19,2;" ";amar;AT l 
9,27;" ";pie;AT 4,2;" "spiesp;AT 

4,27;" ";amarsp 

149 DEEP .1,30: RETURN 

150 REM VARIABLES DE LA JUGADA 
153 DIM ci<36): DIN di<3ó> 

156 LET e=0: LET x=0: LET 1=0: 
LET cant-O: LET cantsp=0: LET mu 
s=ú: LET gran=0: LET gransp=0: L 
ET peq=0: LET peqsp=0 
159 DIM -f(a>: DIM a<36>: DIM b( 
36): DIM c(9): DIM e(8): DIM g(8 
>; DIM p(8) 

162 LET c¥=’ ,,! ; LET d®="" 

165 LET nopa=0: LET noju=0 

168 LET no=0 

200 REM BARAJANDO 

206 GO SÜB 212 

209 GO TO 500 

212 PRINT AT 11,0;" REP 

ARTO CARTAS : PAUSE t 

213 IF sp=0 THEN PRINT FLASH 

1;AT 11,4;" JUEGAS TU! 

ll 

214 IF 5p=l THEN PRINT FLASH 

1;AT 11,5;" JUEGO YO 

II 

215 FOR n=l TO B 

217 IF -f (n) =n THEN GO TO 353 

218 LET a=INT <RND*9)+1 

219 LET b = INT <RND*4)+1 

220 FOR y=l TO x 

221 IF a <y)=a AND b(y)=b THEN 
GO TO 21S 

222 NEXT y 

223 LET a(y)=a: LET b<y)=b 

224 LÉT x=x + l 

225 GO SUB 400 
230 LET c (n)=a 

233 LET e<n)=e 

234 LET g(n)=g 

235 LET p (n í =p 

236 REM DIBUJO DE CARTAS 
242 IF 1>12 THEN LET 1=0 
245 IF n>4 THEN GO TO 300 
250 REM DIBUJO CARTAS JUGADOR 
252 FOR m=16 TO 20 


253 PRINT PAPER 7;AT m,9+l;" 
NEXT m 


254 

IF 

d®(n)="Y " 

THEN 

LET 

i nk= 

255 

IF 

d® <n)=" i " 

THEN 

LET 

i nk= 

256 

IF 

di(□>=" •" 

THEN 

LET 

ink= 

257 

IF 

% 

d® <n>= " V 

THEN 

LET 

ink = 


2 

262 PRINT PAPER 7; INK 9;AT 16 
,9+1 ;c® (n) ; AT 17,9+1; INK ink;d$ 
(n) 

265 PRINT PAPER 7; INK ink;AT 
19,11+1;díín);AT 20,11+1; INK 9; 
c® (n) 



266 PLOT 71+1*8,48: DRAW 25,0: 
DRAW 0,-41: DRAW -25,0: DRAW 0,4 
1 

268 60 TO 350 

300 REM DIBUJO CARTAS SPECTRUM 

303 FOR m=l TG 5 

304 PRINT PAPER 1; INK 7;fiT m, 
9+1; " ■CwDSO’" 

307 NEXT m 

319 PLOT 71+1*8,168: DRAW 25,0: 
DRAW 0,-41: DRAW -25,0: DRAW O, 
41 

321 GO TO 350 

350 REM DIBUJAR LAS 8 CARTAS 

353 LET 1=1+4 

354 BEEP .1,40 
356 NEXT n 

358 LET cant=eí1)+e +e(3)+e í4 

) 














TIE 


359 LET cantsp=e<5)+e(6)+e<7}+e 
( 8 ) 

360 LET qran=q < 1)+g <2)+g í 3)-^g í 4 
í 

361 LET gransp=g(5)+g(6>+g<7>+g 
(8) 

362 LET peq=p(1)+p<2)+p(3)+p(4) 

363 LET peqsp-p(5>+p(6)+pC7>+p( 
8 ) 

365 RETURN 

400 REM VALORES CARTAS 

401 IF a=1 THEN LET e=l: LET g 
= 1: LET p=6561: LET c$(n)= l, A’' 

403 IF a-2 THEN LET e=3; LET g 
=3: LET p=2187: LET c$<n>="3" 

406 IF a=3 THEN LET e=4: LET g 
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=9: LET p =729: LET c$<n>="4" 

409 IF a=4 THEN LET e=5: LET g 
=27: LET p=243: LET c$ <n)="5" 

412 IF a=5 THEN LET e=6: LET g 
=81: LET p=8l: LET c$(n)="6" 

415 IF a=6 THEN LET e=7: LET g 
=243: LET p=27: LET c<S(n>="7" 

418 IF a~1 THEN LET e=10: LET 
Q-729: LET p=9; LET c$(n)=" 10" 

421 IF a=8 THEN LET e=10: LET 
g=2187: LET p=3: LET cSín)^' 11" 
424 IF a=9 THEN LET e=10: LET 
g=ó561: LET p = ls LET c$ ín > =" 12" 
427 IF b = l THEN LET d$(n>= ,, T" 
430 IF b=2 THEN LET d$Cn>=*' + " 
433 IF b=3 THEN LET d$ (□>=■'#" 
436 IF b=4 THEN LET d$ín)="S" 
439 RETURN 

500 REM CONDICIONES DE MUS 


501 IF mus>1 THEN GO TD 950 

502 DIM -f <8) 

503 PRINT AT 11,0;" 

NES MUS? S/N 

506 PAUSE O 


509 

000 

IF 

INKEY$="N" 

THEN 

GO 

TO 

1 

512 

50 

IF 

INKEY^’S" 

THEN 

GÜ 

TD 

5 

515 

IF 

INKEY*<>"S 

" AND 

INKEY* 

í > 


"N" THEN GO TD 503 

550 REM CONDICIONES MUS SP. 

553 IF cantsp>=30 THEN GO TO 9 
00 

556 IF <c (5)=9 AND c<6)=9) OR ( 
c(5)=9 AND c (7)=9) OR (c(5)=9 AN 
D c (8)=9) OR (c (6) =9 AND c(7)=9> 

QR (c <6)=9 AND c(S>=9) OR (c(7) 
=9 AND c(8)=9) THEN GO TO 900 

559 IF (c(5)=8 AND c(6)=8> QR ( 
c(5)=8 AND c(7)=8) OR (c<5>=8 AN 
D c (8)=8) OR (c(6)=e AND c(7)=S) 

OR <c(6)=8 AND c <B)=8) OR <cí7> 
=8 AND c(8)=8> THEN GO TO 300 

562 IF (c(5)=c<6) AND c(5)=c(7) 

) OR (c(5)=c(7) AND c(S)=c(8)) O 
R <c(6)=c<7) AND c(5)=c <8)) THEN 
GO TO 900 

565 IF (c(5)=c(6) AND c(7)=c(8) 

) ÜR <c(5)=c(7> AND c(6)=c(B)) O 
R (c(5)—c(8) AND c(ó)=c(7)) THEN 
GO TO 900 

568 PRINT AT 11,0;" YO TAM 

BIEN TENGO MUS ": PAUSE t 

571 PRINT AT 11,0;" CAMB 

ID DE CARTAS ": PAUSE t 

572 PRINT AT 11,0;"MARCA CARTA 


" ; FLASH 

1;"A NO CAMBIAR”; FLASH 

0; " 

1-2 

-3-4" 


575 

PRINT AT 12,0; 

" PARA AC 

ABAR 

PULSA ENTER 

l| 

578 

INPUT -F$ 


581 

IF 

fí=“" THEN 

GO TO 600 

587 

LET 

-f=VAL -F* 


590 

LET 

-F<f >=f 


593 

60 

TO 578 


600 

REM 

SPECTRUM CAMBIA CARTAS 

603 

IF 

c í5)>6 THEN 

LET -f (5) =5 

606 

IF 

c(6)>6 THEN 

LET -F (6) =6 

609 

IF 

c(7)>6 THEN 

LET f(7)=7 

612 

IF 

c(8)>6 THEN 

LET + (8)=8 

615 

LET 

mus=mus+1 


621 

LET 

















622 LET 1=0 

625 F'RINT AT 11,0; 


630 60 SUB 212 
633 G0 TO 500 

900 F'RINT AT 11,0;“ PUES YO 

NÜ, FASTIDIATE! ": PAUSE t 

903 GO TO 1000 

950 PRINT AT 11,0;" YA NO 

HAY MAS MUS! ": PAUSE t 

953 GO TO 1000 

1000 PRINT AT 11,0;" JU6A 

DA A GRANDE "s PAUSE t 

1003 LET gr=0: LET env=0: DIM jí 
S): LET j=S: LET an=0 

1004 IF sp=1 THEN GO TO 1200 

1006 PRINT AT 11,0;" ENVIDAS 

A GRANDE ? S/N/O 

1009 REM LECTURA CARTAS SPECTRUM 
1012 IF gransp>=17496 THEN LET 


i<j>=l 

1015 IF gransp>=14580 AND gransp 

<17496 THEN LET j(j>=2 

1018 IF gransp>=13124 AND gransp 

<14580 THEN LET j(j>=3 

1021 IF gransp>=9478 AND gransp< 

13124 THEN LET j<j)=4 

1023 IF gransp>=BB50 AND granspí 

9478 THEN LET j(j>=5 

1025 IF gransp>=7292 AND gransp< 

8850 THEN LET j(j)=6 

1027 PAUSE O 

1030 IF INKEY*="0" THEN LET an= 
Os GO TO 1300 

1033 IF INKEY*="N" THEN LET an= 
1: LET np=ls GO TG 1200 
1036 IF INKEY*="S" THEN LET an= 
O: GO TO 1042 

1039 IF INKEY$< >"0" OR INKEYÍO" 
N" OR INKEYÍ< >' , S" THEN GO TO 10 
06 

1042 PRINT AT 11,0;" 

CUANTO? ": INPUT z 

1045 IF z<2 THEN GO TO 1042 


1046 LET env=env+l 


1048 LET gr=gr+z 

1051 IF j(j)=l AND RND>.5 THEN 

GO TO 1450 

1054 IF jíj)=l THEN LET ap=INT 
CRND*5>+2: GO TO 1400 
1057 IF j < j)=2 AND RND>.75 THEN 
GO TO 1450 


1060 IF j(j)=2 THEN LET ap=INT 
<RND*3>+2: GO TO 1400 
1063 IF < j) =3 AND gr<6 AND RND> 
.85 THEN GO TO 1450 
1066 IF j(j)=3 AND gr<6 THEN LE 
T ap=INT <RND#l>+2: GO TO 1400 
1069 IF j(j)=3 AND gr>6 THEN GO 
TO 1lOO 

1072 IF j(j > =4 AND gr<=4 THEN G 
O TO 1100 

1073 IF RND<.15 THEN LET ap=2s 
GO TO 1400 

1075 GO TO 1150 
ilOO PRINT AT 11,0;" 

QUIERO "8 PAUSE ts 

GO TO 2000 

1150 PRINT AT 11,0;" N 

O QUIERO "s PAUSE t 

1153 IF env=l THEN LET gr =0: LE 
T pie=pie+l: GO SUB w 
1156 60 TO 1990 
1200 REM JUGADOR NO ENVIDA 
1203 IF j(j>=l AND RND>„4 THEN 
GO TO 1450 

1206 IF j(j)=l THEN LET ap=INT 
ÍRND*8>+2: GO TO 1400 
1209 IF j(j)=2 AND RND>.5 THEN 
GO TO 1450 

1212 IF j (j) =2 THEN LET ap = INT 
(RND*ó)+2s GO TO 14e>0 
1215 IF j(j)=3 AND RND>.75 THEN 
GO TO 1450 

1218 IF j(j)=3 THEN LET ap=INT 
(RND*4>+2: GO TO 1400 
1221 IF jíj)=4 AND RND>.9 THEN 
GO TO 1450 

1224 IF j < j)=4 THEN LET ap=INT 
(RND*3>+2: GO TO 1400 
1227 IF j(j)=5 THEN LET ap=INT 
ÍRND*2)+2: 60 TO 1400 

1230 IF j(j)=6 THEN LET ap=2: G 
O TO 1400 

1231 IF c(5)=9 OR c(ó)=9 OR cí7> 
=9 OR c CS> =9 THEN LET ap=2s GO 
TO 1400 

1232 IF RND<2 THEN LET ap=2: GO 
TO 1400 

1233 PRINT AT 11,0;" YD P 

ASO A GRANDE ": PAUSE t 

1234 LET an=l 

1236 IF sp=l AND no=l THEN LET 
na=0: 60 TO 2000 

1237 IF sp=l THEN GO TO 1006 










1239 GO TÜ 1990 
1300 REM ORDAGO 

1303 PRINT AT 11,0;" ME OR 

DAGUEAS! EH!! "s PAUSE t 

1306 IF gransp>=13124 THEN GO T 
O 1350 

1309 PRINT AT 11,0;" N 

O QUIERO! PAUSE t 

1310 IF env=0 THEN LET pie=pie+ 
1: GO SUB ws LET gr=0; GO TO 199 
O 

1312 IF env>=l THEN LET pie=pie 
+gr: LET gr=0: GO SUB ws GO TO 1 
990 



' 

1350 PRINT AT 11,0;" 

!QUIERO! PAUSE t 

1353 PRINT AT 11,O;" VAMOS A 

VER LAS CARTAS 11 : PAUSE t 

1356 GO SUB 6000 

1359 IF gransp >gran THEN PRINT 
AT 11,0;" !!!!TE GANE!!í 

PAUSE t: GO TO 7000 
1362 IF gransp<*gran THEN PRINT 
AT 11,0;" ME GANASTE 

PAUSE t; GO TO 7000 

1400 REM SPECTRUM ENVIDA 

1401 LET an=0 

1402 LET env=env+l 

1403 PRINT AT 11,0;"YO TE ENVIDO 
" ; ap; tr QUIERES S/N/E/O": PAUSE 

O 

1406 LET gr=gr+ap 

1409 IF INKEY$="S" THEN GO TO 2 
000 


1410 IF INKEY$="N" AND env=l THE 

N LET gr=0: LET piesp=piesp+l: 

GO SUB ws GO TO 1990 

1412 IF INKEYÍ="N" AND env>í THE 

N LET gr=gi—ap; LET piesp=pie 5 p 

+gr; GO SUB w: LET gr=0: GO TO 1 

990 

1415 IF INKEY$="Ü" THEN GO TO 1 

300 

1418 IF INKEYÍ= H E" THEN LET env 

=env+l: GO TD 1424 

1421 IF INKEY$< > ,, S" DR INKEYíO" 

N" OR INKEY$< >"0" THEN GO TO 14 

03 

1424 PRINT AT 11,0;" 

CUANTO? INPUT z 

1427 IF z<2 THEN GO TO 1424 
1430 IF z<INT <RND*10)+2 THEN G 
O TO 1442 

1433 PRINT AT 11,0;"ES DEMASIADO 
PARA MI, NO QUIERO ": PAUSE t: 
LET pi e=pie+gr; GO SUB w: LET gr 
=0: PAUSE t; GO TO 1990 
1442 PRINT AT 11.0;" 

!QUIERO! »¡ LET gr=gr 

+z; PAUSE tí GO TO 2000 

1450 REM ORDAGO DE SPECTRUM 

1451 LET an=Q 

1453 PRINT AT 11,0; FLASH 1;" 

!ORDAGO! QUIERES S/N ": 

PAUSE O 

1456 IF INKEY*="N" AND env-1 THE 
N LET piesp=piesp+gr: GO SUB w: 

LET gr=0: GO TO 1990 
1459 IF INKEY$= M N" THEN LET pie 
sp=piesp+1: GO SUB w: LET gr=0: 
GQ TO 1990 

1462 IF INKEY*= !, S" THEN GO TÜ 1 
468 

1465 IF INKEY$< >"S" OR INKEY$<>" 
N" THEN GO TO 1453 
1468 GQ TO 1353 

1990 TF totsp >=25 THEN 60 TÜ 65 
00 

1995 IF tot>=25 THEN GD TO 6600 
2000 PRINT AT 11,0;" JUGA 

DA A PEQUERA »: PAUSE t 

2003 LET eq=0: LET pe=0: LET env 
=0; DIM k(8): LET k=8 

2004 IF sp=l THEN GG TO 2200 
2006 PRINT AT 11,0;" ENVIDAS A 

PEQUERA? S/N/O 

2009 REM LECTURA CARTAS SPECTRUM 













2012 IF peqsp>=17496 THEN LET k 


(k) = 1 

2015 IF peqsp>=14580 AND peqsp<l 

7496 THEN LET k(kí=2 

201S IF peqsp>=13124 AND peqsp<l 

4580 THEN LET kík)=3 

2021 IF peqsp>=947B AND peqsp<13 

124 THEN LET k(k)=4 

2023 IF peqsp>=8850 AND peqsp<94 

78 THEN LET k(k > =5 

2025 IF peqsp>=7292 AND peqsp<88 

50 THEN LET k(k)=6 

2027 PAUSE 0 

2030 IF INKEYS^'O" THEN LET eq= 
O: SO TO 2300 


2033 IF INKEY$= 1, N" THEN LET eq = 
1: LET no=ls 50 TO 2200 
2036 IF INKEY$= M S” THEN LET eq= 
O: 50 TO 2042 

2039 IF INKEY*<>”Q" OR INKEY$<>’> 
N" OR INKEY$< >"S" THEN GO TO 20 
06 

2042 PRINT AT 11,0;" 

CUANTO? ": INPUT z 

2045 IF z<2 THEN GO TO 2042 


2046 LET env=env+l 
2048 LET pe=pe+z 

2051 IF k ík)=l AND RND>.5 THEl4 ' 
GO TO 2450 

2054 IF k í k)=1 THEN LET ap=INT 
(RNDÍ5)+2: 50 TO 2400 
2057 IF k(k)=2 AND RND>.75 THEN 
GO TO 2450 

2060 IF k ( k ) = 2 THEN LET ap = INT 

(RND*3>+2: GO TO 2400 

2063 IF k(k)=3 AND pe<6 AND RND> 

.85 THEN GO TO 2450 

2066 IF k(k4 =3 AND pe<6 THEN LE 

T ap=INT ÍRND*l)+2: GO TG 2400 

2069 IF k(k)=3 AND pe>6 THEN GO 


TO 2100 


2072 IF k ík)=4 AND.pe<=4 THEN G 
O TO 2100 

2073 IF RND<.15 THEN LET ap=2; 
GO TO 2400 

2075 GÜ TO 2150 
2100 PRINT AT 11,0;" 

QUIERO ”: PAUSE t: 

GO TO 3000 


2150 PRINT AT 11,0;" N 

O QUIERO PAUSE t 

2153 IF env= 1 THEN LET pe=C>: LE 
T pi e-pi e-fi ; od 5UB w 


2156 60 TO 2990 
2200 REM JUGADOR NO ENVIDA 
2203 IF k(k)=1 AND RND>,4 THEN 
GO TO 2450 

2206 IF k <k)=1 THEN LET ap=INT 
(RND*8)+2: 50 TO 2400 
2209 IF k(k)=2 AND RND>.5 THEN 
GO TO 2450 

2212 IF k t k)=2 THEN LET ap=INT 
<RND*6>+2: GO TO 2400 
2215 IF k(k)=3 AND RND>.75 THEN 
GO TO 2450 

2218 IF k ík)=3 THEN LET ap = INT 
(RIMO*4) +2: 50 TO 2400 



2221 IF k(k>=4 AND RND>.9 THEN 
GO TO 2450 

2224 IF k(k> =4 THEN LET ap = INT 
(RND*3)+2: 50 TO 2400 
2227 IF k ík)=5 THEN LET ap = INT 
(RND#2)+2: GO TO 2400 

2230 IF k(kJ=6 THEN LET ap=2: 5 
0 TO 2400 

2231 IF c í5)=1 GR c<6)=! ÜR c (7) 
= 1 OR c <8)=1 THEN LET ap=2: 50 
TO 2400 

2232 IF RND<.2 THEN LET ap=2: 5 
Ü TO 2400 

2233 PRINT AT 11,0;" YO P 

ASO A PEQUERA PAUSE t 

2234 LET eq=i: 

2236 IF sp=l AND no=l THEN LET 
no=0: GO TO 3000 

2237 IF sp=l THEN 50 TO 2006 
2239 GO TO 2990 

2300 RED ORDñGÜ 

2303 PRINT AT 11,0;" 


ME OR 













DAGUEAS! EH! ! '■ s PAUSE t 

2306 IF peqsp>=13124 THEN 60 TO 
2350 

2309 PRINT AT 11,0; H N 

O GUIEROí PAUSE t 

2310 IF env=0 THEN LET p j e=pie+ 
ls GO SUB w: LET pe=Ü: GO TO 299 
O 

2312 IF env>=! THEN LET pie=pie 
+pe: GO SUB w: LET pe=Os GO TO 2 

990 

2350 PRINT AT 11,0;" 

¡QUIERO! "; PAUSE t 

2353 PRINT AT 11,0;" VAMOS A 

VER LAS CARTAS PAUSE t 

2356 GO SUB 6000 

2359 IF peqsp>peq THEN PRINT AT 
11,0;" !!!!TE GANE!!! 

"s PAUSE t: GO TO 7000 
2362 IF peqsp<=peq THEN PRINT A 
T 11,0;" ME GANASTE 

PAUSE t: GO TO 7000 

2400 REM SPECTRUM ENVIDA 

2401 LET eq=0 

2402 LET env=env+l 

2403 PRINT AT 11,0;"YO TE ENVIDO 
"jap;" QUIERES S/N/E/O”: PAUSE 

O 

2406 LET pe=pe+ap 

2409 IF INKEYÍ—“S" THEN GO TO 3 
000 

2410 IF INKEYS="N" AND env=l THE 
N LET pe=0: LET piesp=piesp+1: 
GO SUB m: GO TO 2990 

2412 IF INKEY*="N" AND env>l THE 
N LET pe=pe—ap: LET piesp=piesp 
+pe: GQ SUB w: LET pe=0: GO TO 2 
990 

2415 IF 1NKEYÍ="0" THEN GO TO 2 

300 

241S IF INKEY*='*E" THEN LET env 

=env+l í GO TO 2424 

2421 IF INKEY*<>"S” OR 1NKEYSO" 

N" ÜR INKEY*<> ,, 0" THEN GO TQ 24 

03 

2424 PRINT AT 11,0;'* 

CUANTO? "; INPUT z 

2427 IF z<2 THEN GD TO 2424 
2430 IF 2<INT CRND*10>+2 THEN G 
Ü TQ 2442 

2433 PRINT AT 11,0;"ES DEMASIADO 
PARA MI, NO QUIERO 11 : PAUSE t: 
LET pie=pie+pe: GO SUB w: LET pe 


=0: PAUSE t: GO TO 2990 
2442 PRINT AT 11,0;" 

¡QUIERO! *': LET pe-pe 

+z: PAUSE t: GO TO 3000 

2450 REM ORDAGO DE SPECTRUM 

2451 LET eq=0 

2453 PRINT AT 11,0; FLASH 1; M 

¡ORDAGO! QUIERES S/N 
FAUSE O 

2456 IF INKEY*="N“ AND env=l THE 
N LET plesp=piesp+pes GQ SUB w: 

LET pe=0: 60 TO 2990 
2459 IF INK!EY«="N" THEN LET pie 
sp=piesp+l: GO SUB w: LET pe=0; 
GÜ TO 2990 

2462 IF INKEY¥="S" THEN GO TO 2 
46S 

2465 IF 1NKEY®<>"S M OR 1NKEY*<>" 
N" THEN GO TO 2453 
2468 60 TD 2353 

2990 IF totsp>=25 THEN 60 TO 65 
00 

2^95 IF tot>=25 THEN GO TO 6600 
3000 PRINT AT 11,0;" JüG 

ADA A PARES PAUSE t 

3003 LET pa=0; LET env=Q: DIM oí 
3): LET d=2: DIM q(3): LET q=3: 
LET res=0; LET resp=0 

3004 LET er=Os LET ersp=0 
3006 REM LECTURA PARES JUGADOR 

PARA VISION AL RECUENTO 

3009 IF g <1>=c(2) OR c <1)=c (3) O 
R c < 1) —c. (4) THEN LET o(o) = l: LE 
T er=2*c(l> 

3010 IF cí2>=cí3) OR c(2)=cí4) T 
HEN LET o(o)=1: LET er=2*c<2> 

3011 IF c (3)=c (4) THEN LET oto) 
=1: LET er=2*c<3) 

3012 IF (cti)=c<2> AND e(l)=c<3) 

) OR (ctl>=cí2) AND c(1> =c<4) ) T 
HEN LET o(o)=2: LET er=3*cti? 

3013 IF cí2)=c(3) AND c(2)=c(4) 
THEN LET o(o)=2: LET er=3*c(2) 
3015 IF íc <1)=c(2) AND c(3J=c(4) 

) OR <c(lí=c(3) AND c(2)=ci4>> Ü 
R (c(l>=c<4) AND c<2)=c(3)‘l THEN 

LET o < o)=3 

3018 REM LECTURA PARES SPECTRUM 

3021 IF c (.5) =c (6) OR c(5)=cC7) O 
R cC5)=cíB> THEN LET q(q)=l: LE 
T ersp=2#ct5> 

3022 IF c í 6)=c i 7) ÜR cí6)=c(8> T 
HEN LET q(qj=l; LET ersp=2*cí6) 


9 














3023 IF c(7>=cíS) THEN LET q<q> 
=1: LET ersp=2*ct7> 

3024 IF <c (5> =c <ó) AND c<5>=ct7> 

) 0R <c(5)=c<6> AND c(5>=c(B>) T 
H£N LET q<q)=2; LET ersp=3#c(5) 

3025 IF (c(6)=cí7) AND c(6>=e<8) 

) THEN LET q(q>=2: LET ersp=3*c 
(ó) 

3027 IF (c(5)=c(6) AND c<7)=c<B> 

> GR (c(5)=c(7) AND c(6>=c<8>) O 
R {c í5)=c(8) AND c<6)=c(7)> THEN 
LET q Cq> =3 

3030 REM COMIENZA JUEGO PARES 
3033 PRINT AT 11,0;" TIEN 

ES PARES? S/N PAUSE O 

303ó IF INKEY$= M N" AND (q(q)=l O 
R q(q)=2 OR q(q)=3) THEN LET re 
sp = 1: GO Tü 3800 

3039 IF INKEYí^'S’' AND (q(q)=l O 
R q(q)=2 OR q <q>=3) THEN PAUSE 
150: GO TO 3051 

3042 IF INKEY^’S" THEN LET res 
=1: GO TO 3900 

3045 IF XNKEY$—"N" THEN GO TO 3 
950 

3048 IF INKEY$< >"S" OR INKEYSO” 
N'* THEN 60 TO 3033 

3051 PRINT AT 11,0.!” YO TAMB 

IEN TENGO PARES ": PAUSE t 

3052 IF sp = l THEN GO Tü 3200 

3053 PRINT AT 11,0;” ENV 

IDAS? S/N/O **! PAUSE O 


3054 

IF 

INKEY$=”N" 

THEN 

LET no= 

1: GO 

3055 

TO 

IF 

3200 

INKEYÍ^'Ü" 

THEN 

GO TO 3 

300 

3057 

IF 

INKEYí="S" 

THEN 

GO TO 3 

061 

3059 

IF 

INKEY$K>"N 

" OR 

INKEY$<>" 


O" OR INKEY*< >*'S" THEN GO TO 30 
53 

3061 PRINT AT 11,0;” 

CUANTO? INPUT z 

3063 IF z<2 THEN GO TO 3061 

3064 LET env=env+l 

3065 LET pa=pa+z 

3067 IF q(q>=3 AND gransp>=13124 
THEN GO TO 3450 
3069 IF q(q)=3 THEN LET ap=INT 
(RND*8>+2: GO TO 3400 
3071 IF q(q>=2 AND gransp>=2187 
THEN GO TO 3450 

3073 IF qíq>=2 AND RND>.75 THEN 


60 TÜ 3450 

3075 IF q (q) -2. THEN LET ap = INT 
<RND*4>-*-2: GO TO 3400 
3077 iF qíq)=l AND qransp>=13122 
AND RND>.85 THEN GO TO 3450 
3079 IF q(q)=l AND qransp>=l3122 
THEN LET ap=2: GO TÜ 3400 

3081 IF q(q)=l AND gransp>=4374 
THEN bD TO 3100 

3082 IF RND<.15 THEN LET ap=2: 
GO TO 3400 

3083 60 TO 3150 
3100 PRINT AT 11,0;" 

QUIERO PAUSE t: 

GÜ TO 4000 



3150 PRINT AT 11,0;" N 

O QUIERO PAUSE t 

3153 IF en v=l THEN LET pa=Ú: LE 
T pie=pie+l: 60 SUB w 

3154 LET res=l 
3156 GO TO 3990 

3200 REM JUGADOR NO ENVIDA 
3203 IF q <q)=3 AND gransp>=13124 
THEN GO TO 3450 
3206 IF qíq>=3 AND gransp>=4374 
AND RND>.3 THEN GO TO 3450 
3209 IF q(q>=3 AND gransp >=1458 
AND RND>.5 THEN GO TQ 3450 
3212 IF q(q> =3 AND gransp>=486 A 
ND RND>.7 THEN GO TO 3450 
3215 IF q(q)=3 AND RND>.85 THEN 
GO TO 3450 

3218 IF q < q)=3 THEN LET ap = lNT 
<RND*10>+2: GO TD 3400 
3221 IF q(q)=2 AND gransp>=19683 
AND RND>.5 THEN GO TO 3450 















3224 1F a(q)-2 AND gransp>=19683 
THEN LET ap=INT CRND#6)+2: GO 
TO 3400 

3237 IF q(q)=2 AND gransp>=6561 
AND RND>.7 THEN GO TO 3450 
3230 IF q(q)=2 AND gransp>=6561 
THEN LET ap=INT <RND*4)+2: GO T 
O 3400 

3233 IF q(q)=2 AND gransp>=2187 
AND ftND>.9 THEN GO TO 3450 
3236 IF q(q)=2 AND gransp>=2187 
THEN LET ap=INT (RND*3>+2: 60 T 
O 3400 

3239 IF q(q>=2 THEN LET ap=INT 
(RNDÍ2J+2: GO TO 3400 
3242 IF qíq)=l AND gransp>=13122 
AND RND >.6 THEN GO TO 3450 
3245 IF q(q>=l AND gransp>=13122 
THEN LET ap=INT ÍRND*4>+2: 60 
TO 3400 

3248 IF q(q)=l AND gransp>=4374 
AND RND >.85 THEN GD TO 3450 
3251 IF q(q)=1 AND gransp>=4374 
THEN LET ap=INT (RND*2)+2: GO T 
O 3400 

3254 IF qíq)=l AND gransp>=1458 
AND RND>.95 THEN GO TO 3450 
3257 IF Q(q)=l AND gransp>=1458 
THEN LET ap=ÍNT <RND*l)+2; 60 T 

O 3400 

3260 IF RND<.2 THEN LET ap=2: G 
G TO 3400 

3280 PRINT AT 11,0;" YO 

PASO A PARES PAUSE t 

3283 IF sp=l AND no=l THEN LET 
no=0: GO TO 4000 

3284 IF sp=l THEN GO TÜ 3053 
3286 GO TO 3990 

3300 REN ORDAGO 

3303 PRINT AT 11,0;" ME OR 

DAGUEAS í EH! ! ": PAUSE t 

3306 IF q(q)=3 THEN GO TO 3350 

3309 IF q(q)=2 AND RND>.4 THEN 
GO TO 3350 

3310 IF q<q)=l AND grahsp>=13121 
THEN GO TÜ 3350 

3312 PRINT AT 11,0;" N 

O QUIERO! PAUSE t 

3313 LET res=l 

3314 IF env=0 THEN LET pie=pie+ 
ls GO SUB w: LET pa=0: GO TO 399 
O 

3315 IF env>=1 THEN LET pie=pie 


| 

+pa; 60 SUB w: LET pa=0: GO TO 3 
990 

3350 PRINT AT 11,0;" 

!QUIERO! ": PAUSE t 

3353 PRINT AT 11,0;" VAMOS A 

VER LAS CARTAS PAUSE t 

3356 GO SUB 6000 

3359 IF q(q)=3 ANO <o<o)=2 ÜR o< 
o)=1) THEN GO TO 3380 
3361 IF q(q>=2 AND p(o)=l THEN 
GO TO 3380 

3363 IF q(q)=3,AND o(o)=3 AND gr 
ansp >gran THEN GO TO 3380 
3365 IF q <q)=2 AND oío)=2 AND gr 
ansp >gran THEN Gü TO 3380 
3367 IF q(q)=1 AND o(o)=l AND gr 
ansp >gran THEN GO TO 3380 
3369 PRINT AT 11,0;" ME 

HAS GANADO! PAUSE t: 

GO TO 7000 

3380 PRINT AT 11,0;" TE 

HE GANADO PAUSE t: 

GO TO 7000 

3400 REM SPECTRUM ENVIDA 

3402 LET env=env+i 

3403 PRINT AT 11,0;"YO TE ENVIDO 
"jap;" QUIERES S/N/E/O": PAUSE 

O 

3406 LET pa=pa+ap 

3409 IF INKEY$="S" THEN GO TO 4 
000 

3410 IF INKEYS="N" AND env=l THE 
N LET pa=0: LET piesp=piesp+1; 

GO SUB w: LET resp=l: Gü TO 3990 
3412 IF INK£Y*="N" AND env>l THE 
N LET pa=pa-ap¡ LET píesp=piesp 
+pa: LET pa=0: LET resp=l: GO SU 
B w: GO TO 3990 

3415 IF INKEY*="0" THEN 60 TO 3 
300 

3418 IF INKEY$= ,, E" THEN LET env 

=env+l; GO TD 3424 

3421 IF INKEY$< >"S" OR INKEY*<>" 

N" OR INKEY*<>"0" THEN GO TO 34 

03 

3424 PRINT AT 11,0;" 

CUANTO? INPUT z 

3427 IF z<2 THEN GO TO 3424 
3430 IF z<INT (RND*10)+2 THEN 6 
O TO 3442 

3433 PRINT AT 11,0;"ES DEMASIADO 
PARA MI, NO QUIERO "! PAUSE t: 
LET pie=pie+pa: GO SUB w: LET pa 





=Üí LET res=l: PAUSE t: bü Tü 39 

90 

3442 PRINT AT 11,0;" 

!QUIERO! "s LET pa=pa 

+z: PAUSE t; GÜ TO 4000 
-3450 REM ORDAGO DE SPECTRUM 
3453 PRINT AT 11,0; FLASH 1;" 

íORDAGO! QUIERES S/N ": 

PAUSE O 

3456 1F INKEYÍ="N" AND env=l THE 
N LET piesp=pi esp'+pa: LET resp= 
1: 60 SUB vi: LET pa=0: 60 TO 399 
O 

3459 IF 1NKEY$="N" THEN LET pie 

sp=piesp+l: GO SUB w: LET pa=0: 

LET resp=l: 6Ü TO 3990 

3462 ÍF INKEY*="S" THEN GO TO 3 

468 

3465 IF INKEYS<>'*S” OR INKEY*<>" 
N" THEN GO Tü 3453 
3468 GO TO 3353 

3800 PRINT AT 11,0; M YO 

TENGO PARES "s PAUSE t: 

GO TO 4000 

3900 PRINT AT 11,0;" YO N 

O TENGO PARES ": PAUSE t: 

GO TO 4000 

3950 PRINT AT 11,0;'* YO N 

O TENGO PARES ": LET nopa= 

1: PAUSE t: GO TO 4000 
3990 IF totsp>=25 THEN GO TO 65 

00 

3995 IF tot>=25 THEN 60 TO 6600 
4000 PRINT AT 11,0;" JUG 

ADA A JUEGO ": PAUSE t 

4003 LET ju=0: LET env=0: DIM r( 
B): LET r=8: LET ego=0: LET egos 

p=0 

4006 REM LECTURA JUEGO SFECTRUM 


4008 

IF 

cantsp=31 

THEN 

LET 

r ir) 

— 1 

4010 

=2 

IF 

cantsp=32 

THEN 

LET 

r ir ) 

4012 

—3 

IF 

cantsp=40 

THEN 

LET 

r <r) 

4014 

=4 

IF 

cantsp=37 

THEN 

LET 

r (r) 

4016 

=5 

IF 

cantsp=36 

THEN 

LET 

r (r) 

4018 

=6 

IF 

cantsp=35 

THEN 

LET 

r (r) 

4020 

=7 

IF 

cantsp=34 

THEN 

LET 

r (r > 


4022 IF cantsp=33 THEN LET r(r) 
=8 

4030 REM COMIENZA EL JUEGO 
4033 PRINT AT 11,0;" TIENE 

S JUEGO? S/N ": PAUSE O 

4036 IF INKEY*="N" AND carttsp>=3 
1 THEN LET egosp=l: GO TO 4800 
4039 IF INKEY*="N" AND cantsp<31 
THEN GO TO 4950 

4042 IF INK:EY$= I, S” AND cantsp<31 
THEN LET ego=l: GO TO 4900 
4045 IF INK:EY$="S" AND cantsp>=3 
1 THEN 60 TO 4051 
4048 IF INKEY$<>"S" OR INKEYíO" 
N" THEN GO TO 4033 

4051 PRINT AT 11,0;" YO TAMB 

IEN TENGO JUEGO “: PAUSE t 

4052 IF sp=l THEN GO TO 4200 

4053 PRINT AT 11,0;" ENV 

IDAS? S/N/O PAUSE O 

4054 IF 1NKEY*="N" THEN LET no= 

1: GO TÜ 4200 

4055 IF 1NKEY$-"G" THEN GO TO 4 
300 

4057 IF INKEY*="S" THEN GO TO 4 
061 

4059 IF INK£Y*<>"S" OR INKEY$<>" 
O" OR INKEY$<>"N" THEN GO Tü 40 
53 

4061 PRINT AT 11,0;" 

CUANTO? INPUT z 

4063 IF z<2 THEN GO TO 4061 

4064 LET env=env+l 

4065 LET ju=ju+z 

4067 IF r (r) = 1 AND RND>.3 THEN 
GO TO 4450 

4069 IF r (r)=1 THEN LET ap=INT 
<RND*10)+2; GO TO 4400 
4071 IF r(r>=2 AND RND>.6 THEN 
GO TO 4450 

4073 IF r(r)=2 THEN LET ap=INT 

<RND*6)+2: GO TO 4400 

4075 IF r(r>=3 THEN LET ap=INT 

<RND*4)+2; GO TO 4400 

4077 IF r(r)=4 THEN LET ap=lNT 

<RND*2)+2: GO TO 4400 

4079 IF RND<.15 THEN LET ap=2: 

GO Tü 4400 

4081 IF KND<.7 THEN GO TO 4150 
4100 PRINT AT 11,0;" 

QUIERO "! PAUSE t: 

GO TO 5500 

4150 PRINT AT 11,0;“ N 









□ QUIERO [ "; PAUSE t 

4151 LEI eqo=l 

4153.IF env=l THEN LET ju=0: LE 
T pie=pjs+l: Gü SUB w: GO TÚ 499 
O 

4200 REM JUGADOR NO ENVIDA 
4203 IF r(r)=1 AND RND>.2 THEN 
GO TO 4450 

4206 IF r <r)=1 THEN LET ap-INT 
ÍRND*10)+2: GO Tü 4400 
4209 IF r(r)=2 AND RND>.5 THEN 
GO TO 4450 

4212 IF r ir)=2 THEN LET ap=INT 
<RND*8>+2: GO TO 4400 





4215 IF r(r)—3 AND RND>.75 THEN 
GO TO 4450 

4218 IF r ir)=3 THEN LET ap = INT 
<RND*ó>+2: GO TO 4400 
4221 IF r ír)=4 AND RND>.9 THEN 
GO TO 4450 

4224 IF r ir)=4 THEN LET ap=INT 

<RND*4)+2: GO TO 4400 

4227 IF r(r)=5 THEN LET ap=INT 

(RND*2)+2: GO TO 4400 

4230 IF rir)=6 THEN LET ap=2: G 

O TO 4400 

4233 IF rir)=8 AND RND>.95 THEN 
60 TO 4450 

4236 IF RND<.2 THEN LET ap=2: G 
O TO 4400 

4239 PR1NT AT 11,0;" YO 

PASO A JUEGO "s PAUSE t 

4242 IF sp=l AND no=l THEN LET 
no=0: GO TO 5500 

4243 IF sp=l THEN 60 TO 4053 
4245 GO TO 4990 


4300 REM ORDAGO 

4303 PRINT AT 11,0;" ME 

ORDñGUEAS! EH? “í PAUSE t 

4306 IF rir > =1 AND RND>.4 THEN 
GO TO 4350 

4309 IF rir)=2 AND RND>.Ó THEN 
GO TO 4350 

4312 IF rír>=3 AND RND>.75 THEN 
GO TP 4350 

4315 IF r ir)=4 AND RND>.9 THEN 
GD TO 4350 

4318 PRINT AT *11,0; " 

NO QUIERO! : PAUSE t 

4319 LET ego=l 

4320 IF env=0 THEN LET pie=pie+ 
1: GQ SUB w: LET ju=Ü: GO TÚ 499 
O 

4321 IF env>=l THEN LET pie=pie 
+ju: GO SUB w: LET ju=0: GÜ TO 4 
990 

4350 PRINT AT 11,0;" 

•¡QUIERO!! PAUSE t 

4353 PRINT AT 11,0;" VAMOS A 

VER LAS CARTAS PAUSE t; 

60 SUB 6000 

4356 IF cantsp=31 AND cant<>31 T 
HEN GO TO 4370 

4357 IF cantsp=32 AND ícant<>31 
OR cant=32) THEN GO TO 4370 

4358 IF cantsp>cant THEN GQ Tü 
4370 

4359 PRINT AT 11,0;" ME 

HAS GANADO! PAUSE t: 

GO TO 7000 

4370 PRINT AT 11,0; 11 ! ! TE 

HE GANADO * ! PAUSE t: 

GO TO 7000 

4400 REM SPECTRUM ENVIDA 

4402 LET env=env+l 

4403 PRINT AT 11,0;"YO TE ENVIDO 
"; ap; '* QUIERES S/N/E/G": PAUSE 

O 

4406 LET ju=ju+ap 

4409 IF INKEY$="S" THEN GO Tü 5 
500 

4412 IF INKEY$=”N” AND env=l THE 
N LET íu= 0: LET piesp=piesp+l: 
GO SUB w: LET eqosp=l; GO TO 499 
O 

4415 IF INKEY$="N" AND env>l THE 
N LET piesp=piesp+ju-ap: GO SUB 
w; LEI ju—O; LEI eqosp=l: GO TO 
4990 























441S IF 1 NKEY$= ” Ü 11 THEN 60 TÜ 4 
300 

4419 1F 1NKEY$="£" THEN LET env 
=env+l: GÜ TO 4424 
4421 IF INKEYí< >"S" OR lNKEYíO" 
N" GR INKEY$< >"0" OR INK£Y$< > ,, E" 
THEN 60 T0 4403 
4424 PRINT AT 11,0;" 

CUANTO? "í INPUT z 

4427 IF z<2 THEN GO TO 4424 
4430 IF Z<1NT (RND* 10) +2 THEN G 
O TO 4442 

4433 PRINT AT 11,0;" ES DEMASIAD 
O PARA MI, NO QUIERO "i PAUSE t: 
LET pie=pie+jUi GO SUB w: LET ju 
=0: LET ego=l: 60 TO 4990 
4442 PRINT AT 11,0;" ! 

ÍQUIERO!! PAUSE t: 

LET ju= ju+2: GO TO 5500 
4450 REM ORDAGO DE SPECTRUM 
4453 PRIN1 AT 11,0;” ORDAGO 

!! QUIERES? S/N PAUSE O 

4456 IF 1NKEY*="N" AND env=l THE 
N LET piesD=Die5p+ju: GO SUB w: 

LET ju=Ci: LET egosp=l: 60 TO 49 
90 

4459 IF INKEY*="N" THEN LET pie 
sp'piesp+1: GO SUB w: LET ja—O: 
LET eqosp=l: 60 TO 4990 
4462 IF INKEY*= H S" THEN 60 TO 4 


468 

4465 IF 1NKEY$< >"S" OR 
N" THEN 60 TO 4453 
4468 60 TD 4353 
4800 PRINT AT 11,0;“ 
TENGO JUEGO ": 

GO TÜ 5500 
4900 PRINT AT 11,0;" 

TENGO JUEGO! " s 

GO TO 5500 
4950 PRINT AT 11,0;" 

TEN60 JUEGO! 

1: PAUSE t: GO TO 5000 
4990 IF totsp>=25 THEN 
00 


INKEYíO" 


YO 

PAUSE tí 

YO NO 
PAUSE t: 

YO NQ 
LET noju= 

GQ TO 65 


4993 IF tot>=25 THEN GO TO 6600 
4996 &□ TO 5500 

5000 PRINT AT 11,0;“ JU6 

ADA A PUNTO PAUSE t 

5003 LET pu=0: LET env=0: D1M s< 
5): LET s=5s LET nto=Ü: LET ntos 


p=0 

5006 IF cantsp=3Ü THEN LEI s<s) 


= 1 

5009 IF cantsp=29 THEN 
=2 

5012 IF cantsp=28 THEN 
=3 

5015 IF cantsp=27 THEN 
=4 

5018 IF cantsp=26 THEN 


LET s í s ) 
LET sis) 
LET 5<s) 
LET sis) 


5020 IF sp = l THEN GO TO 5200 
5030 PRINT AT 11,0;" ENVIDAS 
A PUNTO? S/N/O/ PAUSE O 

5033 IF INKEYÍ=*"N" THEN LET na= 
1: GO TO 5200 



5036 IF INKEY*="0" THEN GO TO 5 
300 

5039 IF INKEY$="S" THEN GO TO 5 
045 

5042 IF INKEYÍ<>”N" OR INKEYÍO" 
0“ OR ÍNKEY*< > ll S“ THEN 60 TO 50 

30 

5045 PRINT AT 11,0;" 

CUANTO? INPUT z 

5048 IF z<2 THEN GO TO 5045 

5050 LET env=env+l 

5051 LET pu=pu+z 

5054 IF s{s)=1 AND RND>.5 THEN 
GO TO 5450 

5057 IF sís)=l THEN LET ap=INT 

(RND*4)+2: 60 TG 5400 

5060 IF sis)=2 THEN LET ap=INT 

<RND*2)+2: 60 TO 5400 

5063 IF sis)=3 THEN LET ap=2: G 

O TO 5400 

5068 IF RND<.1 THEN LET ap=2: G 
O TÜ 5400 
















5069 1F RND>.3 THEN 60 TQ 5150 
5100 PRINT AT 11,0;" 

QUIERO PAUSE t: 

GÜ TO 5500 

5150 PRINT AT 11,0;'* N 

O QUIERO! ": PAUSE t 

5151 LET nto=l 

5153 IF env—1 THEN LET pu=0: LE 
T pie=pie+l: GO SUB w: GO TG 549 
O 

5200 REM JUGADOR NO ENVIDA 
5203 IF s<s)=l AND RND>.5 THEN 
GO TO 5450 

5206 IF s<s>=l THEN LET ap=INT 
ÍRNDÍ4)+2s GO TO 5400 
5209 IF s(s)=2 AND RND>.75 THEN 
GO TO 5450 

5212 IF sis)=2 THEN LET ap=INT 
(RND*2)+2: GO TO 5400 
5215 IF s <s)=3 AND RND>.9 THEN 
GO TO 5450 

5218 IF sis)=3 THEN LET ap=2: G 
D TO 5400 

5221 IF RND<.3 THEN LET ap=2¡ G 
O TO 5400 

5239 PRINT AT 11,0;" YO 

PASO A PUNTO "s PAUSE t 

5242 IF sp-1 AND no=l THEN LET 
no=0: GO TO 5500 

5243 IF sp = 1 THEN GO TO 5030 
5245 GÜ TO 5490 

5300 REM ORDAGO 

5303 PRINT AT 11,0;" ME 

ORDAGUEAS! EH? ": PAUSE t 

5306 IF s(s)=1 AND RND>.5 THEN 
GO TO 5350 

5309 IF sis)=2 AND RND>.75 THEN 
GO TQ 5350 

5312 IF s(s)=3 AND RND>.9 THEN 
GÜ TO 5350 

5318 PRINT AT 11,0;" 

NO QUIERO! ’ ": PAUSE t 

5319 LET nto=l 

5320 IF env=0 THEN LET pie=pie+ 
1: 60 SUB w: LET pu=0: 60 TO 549 
O 

5321 IF 0nv>=l THEN LET pie=pie 
+pu: GD SUB w; LET pu=0: GO TO 5 
490 

5350 PRINT AT 11,0;" 

!!QUIERO!! ": PAUSE t 

5353 PRINT AT 11,0;" VAMOS A 

VER LAS CARTAS *■ : PAUSE t: 


GO SUB 6000 

5356 IF cantsp>cant THEN GO TO 
5370 

5359 PRINT AT 11,0;" ME 

HAS GANADO! ": PAUSE t: 

GO TO 7000 

5370 PRINT AT 11,0;" !!TE 

HE GANADO!* ": PAUSE t: 

GÜ TO 7000 

540.0 REM SPECTRUM ENVIDA 

5402 LET env=env+l 

5403 PRINT AT 11,0;"YO TE ENVIDO 
";ap;" QUIERES S/N/E/O": PAUSE 

O ¡ 

5406 LET pu=pu+ap 

5409 IF INKEY$="S" THEN 60 TO 5 
500 

5412 IF INKEY$="N" AND env=l THE 
N LET pu=0; LET piesp=piesp+1s 
GO SUB w: LET ntosp=l: GO TO 549 

O 

5415 IF INKEY*="N- AND env>l THE 
N LET piesp=piesp+pu-ap: GO SUB 
w: LET pu=0: LET ntosp=l: GO TO 
5490 

5418 IF INKEY*="0" THEN GO TÜ 5 
300 

5419 IF INKEY*="E" THEN LET env 
=env+l: GO TO 5424 

5421 IF INKEY$< >"S“ OR INKEY*<>" 
N" OR ÍNKEY¥<>"0*' ÜR INKEYÍC >"E" 
l'HEN GO TQ 5403 
5424 PRINT AT 11,0;" 

CUANTO? 1NPUT z 

5427 IF z<2 THEN GO TO 5424 
5430 IF zCINT lRND*lO)+2 THEN G 
Q TO 5442 

5433 PRINT AT 11,0;" ES DEMAS1AD 
O PrtKA MI, NO QUIERO": PAUSE t: 
LET pie=pie+pu: GO SUB w: LET ju 
=0: LET nto=l: GÜ TO 5490 
5442 PRINT AT 11,0;" ! 

¡QUIERO!í "- PAUSE t: 

LET pu=pu+z: GO TO 5500 
5450 REM ORDAGO DE SPECTRUM 
5453 PRINT AT 11,0;“ ORDAGO 

!! QUIERES? S/N PAUSE O 

5456 IF INKEY*="N" AND env=l THE 
N LET piesp=piesp+pu: GO SUB w: 

LET pu=0: LET ntosp=l: GO TO 54 
90 

5459 IF INKEY*= M N" THEN LET pie 
sp=piesp+1: GD SUB w: LET pu=0: 


, 


















LET ntosp=l: 60 T0 5490 

5462 IF INKEY$="B" THEN 60 TO 5 

468 

5465 IF INKEY*<>"S“ OR INKEY$<>'* 
N 11 THEN 60 TO 5453 
5468 GO TO 5353 

5490 IF totsp>=25 THEN 60 TO 65 
00 

5495 IF tot>=25 THEN GO TO 6600 
5500 PRINT AT 11,0;" VAM 

OS A CONTAR "; PAUSÉ t 

5503 PRINT AT 11,0;" VAMOS A 

VER LAS CARTAS " : 60 SUB 60 

00: PAUSE t 

5504 IF an=l THEN PRINT AT 11,0 

; " HEMOS PASADO A 6RANDE 

": PAUSE t: GÜ TO 5518 
5506 PRINT AT 11,0;" GRANDE, PIE 
DRAS APOSTADAS ";gr: PAUSE t 
5509 IF gr=0 THEN GO TO 5550 
5512 IF gransp>gran THEN PRINT 
AT 11,0;" TE LAS GANO! 

LET piesp=piesp+gr: 
60 SUB mí PAUSE t: 60 TO 5520 
5515 IF gransp<=gran THEN PRINT 
AT 11,0;" ME LAS GANAS 

11 : LET pie=pie+gr: 60 
SUB w: PAUSE t: GO TO 5520 
551B IF gransp>gran THEN PRINT 
AT 11,0;" TENGO LA GRANDE MA 

YOR ! 11 : LET piesp=piesp+1: P 

AUSE t: GO SUB w: GO TO 5520 

5519 IF gran>gransp THEN PRINT 

AT 11,0;" TIENES LA GRANDE M 

AYOR LET pie=pie+l: PAUSE 

t: 60 SUB w: GO TO 5520 

5520 IF totsp>=25 THEN GO TO 65 
00 

5530 IF tot>=25 THEN GO TO 6600 

5550 IF eq = l THEN PRINT AT 11,0 

; " HEMOS PASADO A PEQUE KiA 

": PAUSE t: GO T-O 5565 

5551 PRINT AT 11,0;" PEQUEÑA, P1 
EDRAS APOSTADAS " ;pe: PAUSE t 
5553 IF pe=0 THEN 60 TO 5600 
5556 IF peqsp>peq THEN PRINT AT 

11,0; w TE LAS GANO! 

LET piesp=piesp+pe: GO 
SUB w; PAUSE t: GO TO 5570 
5559 IF peq>peqsp THEN PRINT AT 
11,0;" ME LAS GANAS 

LET pie=pie+pe: GO SUB 
w: PAUSE t: GO TO 5570 


5565 IF peqsp>peq THEN PRINT AT 
11,0;” TENGO LA PEQUE FÍA MEN 

OR " : LET piesp=piesp+1: PAU 

SE t: GO SUB w: GO TO 5570 
5568 IF peq>peqsp THEN PRINT AT 
11,0;” TIENES LA PEQUEÑA ME 

ÑOR LET pie=pie+l: PAUSE t 

: GÜ SUB w: GO TO 5570 
5570 IF totsp>=25 THEN GO TO 65 
00 

5573 IF tot>=25 THEN GO TO 6600 
5600 IF nopa=l THEN PRINT AT 11 
,0;" NO HAY PARES 

PAUSE t: 60 TO 5700 
5604 IF res=l AND o<o)=3 THEN P 
RINT AT 11,0;“ LLEVAS DU 

PLES! ": LET pje=pie+3: 

60 SUB w: PAUSE t: 60 TO 5690 
5606 IF res-1 AND o^o)=2 THEN P 
RINT AT 11,0;" LLEVAS ME 

DIAS 1 . LET pie=pie+2: 

GÜ SUB w: PAUSE t: GO TO 5690 
5608 IF res=l AND o<o)=l THEN F' 
RINT AT 11,0;" LLEVAS PA 

RES!! "í LET pie=pie+l: 

60 SUB w: PAUSE t; 60 TO 5690 
5610 IF resp=l AND q(q>=3 THEN 
PRINT AT 11,0;" LLEVO D 

UPLES "; LET piesp=pies 

p+3: 60 SUB w: PAUSE tí 60 TD 56 
90 

5612 IF resp=l AND q<q)=2 THEN 
PRINT AT 11,0;" LLEVO M 

EDIAS LET piesp=pies 

p+2: 60 SUB w: PAUSE t: 60 TO 56 
90 

5614 IF resp=l AND q(q)=l THEN 
PRINT AT 11,0;" LLEVO P 

ARES ": LET piesp=pies 

p+1 : 60 SUB w: PAUSE tí 60 TO 56 
90 

5616 PRINT AT 11,0;” PARES, PIED 
RAS APOSTADAS ";pa: PAUSE 150 
5618 IF pa=Q THEN 60 TO 5650 

5620 IF qtq)=3 AND oío)=3 AND gr 
ansp>qran THEN GÜ SUB 5680; LET 

piesp=piesp+pa+3: 60 SUB w; PAU 
SE tí GÜ TO 5690 

5621 ÍF q(q)=3 AND oto)=3 AND gr 
ansp<qran 1HEN GÜ SUB 5685: LET 

pie—pie+pa+3i GÜ SUB w: PAUSE t 
: 60 TO 5690 

5622 IF qtq)=3 AND (o(o)=2 OR o( 













□ )=1) I HbN GU SUB 5680: LE f pie 
sp=pi esp+pa+3: 60 SUB w: PAUSE t 
: 60 TO 5690 

5623 IF o(o)=3 AND (qíq>=2 0R q< 
q)=l> THEN 60 SUB 5685: LET pie 
=pie+pa+3: GO SUB w: PAUSE t: GO 

TO 5690 

5624 IF q(q> =2 AND □(o)=2 AND er 
5p>er THEN GO SUB 5680: LET pie 
sp=piesp+pa+2: GO SUB w: PAUSE t 
: GO TO 5690 

5625 IF q íq)=2 AND oía)=2 AND er 
>ersp THEN 60 SUB 5685: LET pie 
=pie+pa+2: GO SUB w; PAUSE t: GO 

TO 5690 



5626 IF q(q)=2 AND o<o)=l THEN 
GO SUB 5680: LET piesp=piesp+pa+ 
2: 60 SUB w: PAUSE t: GO TO 5690 

5627 ÍF o(o)-2 AND q<q)=l THEN 
60 SUB 5685: LET pie=pie+pa+2: G 
O SUB w: PAUSE t: GO TD 5690 

5628 IF q(q)=l AND o(o)=l AND er 
sp>er THEN GO SUB 5680: LET pie 
sp=piesp+pa+l: GO SUB w: PAUSE t 
s GO TO 5690 

5629 IF qtq)=I AND o(o)=l AND er 
>ersp THEN 6U SUB 5685: LET pie 
=pie+pa+l: GO SUB w: PAUSE t: 60 

TO 5690 

5630 IF q(q)—1 AND o(o)=l AND er 
sp=er AND sp=l THEN 60 SUB 5680 
: LET pi esp=pi esp+pa+1; 60 SUB vm 
: PAUSE t: 60 TO 5690 

5631 IF q (q) = 1 AND o(o)=l AND er 
sp=er AND sp=0 THEN 60 SUB 5*85 


GO SUB m: PA 

o<a)=l AND er 
5670: LET pie 
6 

D(a)=l AND er 
5675: LET pie 


AND oío)=l AND er 
THEN GO SUB 5670 
60 SUB w: P 


» LET pie=pie+pa+l: 

USE t: GO TO 5690 
5650 IF q (q)=1 AND 
sp >er THEN 60 SUB 
sp=piesp+l: GG SUB w: PAUSE ts 
O TO 5690 

5652 IF q<q>=l AND 
>ersp THEN GO SUB 
=pie+l: GO SUB w: PAUSE t: GO TO 
5690 

5654 IF q(q)=1 
sp=er AND sp — 1 
: LET piesp=piesp+1: 

AUSE t: GO TO 5690 
5656 IF qlq)=l AND o(o)=l AND er 
sp=er AND sp=0 THEN 60 SUB 5675 
: LET pie=pie+l: 60 SUB w: PAUSE 
t: 60 TO 5690 

5670 PRINT AT 11,Os" LOS P 

ARES SON MIOS ": RETURN 

5675 PRINT AT 11,0;" LOS PA 

RES SON TUYOS! RETURN 

5680 PRINT AT 11,0;" TE 6A 

NO LOS PARES! ": RETURN 

5685 PRINT AT 11,0;” ME 6A 

ÑAS LOS PARES F:ETURN 

5690 IF totsp>=25 THEN GÚ TO 65 

00 

5695 IF tot>=25 THEN GÚ TO 6600 
5700 IF naju=l THEN PRINT AT 11 
j O;" NÚ HAY JUEGO 

PAUSE t: GO TQ 5800 
5703 IF egosp=l AND cantsp=31 TH 
EN PRINT AT 11,0;" TE 

NGO 31 "« LET piesp= 

piesp+3: GO SUB w: PAUSE t: GO T 
ü 5790 

5706 IF ego=l AND cant=31 THEN 
PRINT AT 11,0;" TIENES 

31 ": LET pie=pie+3: 

GO SUB w: PAUSE t: GO TO 5790 
5709 IF egosp=1 AND cantsp>31 TH 


TE 

LEI' piesp= 
PAUSE t: 60 T 


EN PRINT AT 11,0; 

NGO JUEGO 
piesp+2: GO SUB w: 

O 5790 

5712 IF ego=l AND cant>3l IHEN 
PRINT AT 11,0;" TIENES 

JUEGO ": LET pie=pie+2: 

6Ü SUB w: PAUSE t: 60 TO 5790 
5715 PRINV AT 11,0; "JUEGO, PlEDh' 
AS APOSTADAS "iju: PAUSE t 
5718 IF ju=0 1HEN GÚ TO 5750 















5721 IF cantsp=31 AND cant<>31 T 
HEN 60 SUB 5740: LET piesp=pies 
p+ju+3: 60 SUB w: PAUSE t: 6D T0 

5790 

5722 1F cant=31 AND cantsp<>31 T 
HEN GD SUB 5745: LET pie=pie+ju 
+3: GO SUB w: PAUSE ti GO TÜ 579 
O 

5723 IF cantsp=32 AND cant-31 AN 
D sp=t THEN GO SUB 5740: LET pi 
esp=piesp+ju+3: Gü SUB w: PAUSE 
t: GO TO 5790 

5724 IF cantsp=31 AND eant=31 AN 
D sp=0 THEN GO SUB 5745: LET pi 
e=pie+jU+3: GO SUB w: PAUSE t; G 
O TO 5790 

57-25 IF cantsp=32 AND (cant<>31 
OR cant< >32> THEN GO SUB 5740: 
LET piesp=piesp+ju+2: GO SUB w: 
PAUSE t: GO TO 5790 
5726 IF l ant=32 AND (cantsp<>31 
ÜR cantsp<>32) [HEN GÜ SUB 5745 
: LET pie=pie+ju+2: 60 SUB w: PA 
USE t: Gü TO 5790 

572/ IF cantsp=cant AND sp=l THE 
N GÜ SUB 5740: LET piesp=piesp+ 
iu+2: GÜ SUB w: PAUSE t: GÜ TO 5 
790 

5728 IF cant5p=cant AND sp=0 THE 
N' 60 SUB 5745: LET pie~pie+jU+2 
¡ GO SUB w: PAUSE ts 60 TO 5790 

5729 IF (cantsp<>3l ÜR cantspí. >3 
2) AND ícan1031 OR cant<>32) AN 
D cantsp>cant THEN GÜ SUB 5740: 

LET piesp-piG5p+ju+2; GO SUB w: 
PAUSE t: GU TO 5790 

5730 IF (cantsp<>31 OR cantsp<>3 
2) AND (cant<>31 ÜR cant<>32) AN 
D cant>cantsp THEN 60 SUB 5745: 

LET pie=pie+ju+2: GO SUB w: PAU 
SE t: GÜ TÜ 5790 

5740 PRINT AT 11,0;" TE G 

ANO EL JUEGO ": RETURN 

5745 PRINT AT 11,0;“ ME G 

ANAS EL JUEGO 44 : RETURN 

5750 IF cantsp >cant THEN GO SUB 
5780: LET piesp=piesp+2: GO SUB 
w: PAUSE t: GÜ TÜ 5790 
5753 IF cant>cantsp THEN GO SUB 
578b: LET oie=pie+2: GÜ SUB ws 
PAUSE t: 60 TO 5790 
5756 ÍF cantsp=cant AND sp=l THE 
N bLi SUB 5/80: LE! pi ©sp=pi esp+ 


2: bU SUB w: PAUSE t: bü ÍÜ 5790 
5757 IF cantsp=cant AND sp=0 THE 
N bU SUB 5785: LET pie=pie+2: b 
Ü SUB w: PAUSE t: GÜ TO 5790 
5780 PRINT AT 11,0;*' EL J 

UEGÜ ES MIO RETURN 

5785 PRINT AT 11,0;** EL JU 

EGO ES TUYO RETURN 

5790 ÍF totsp >==25 THEN GÜ TO 65 

00 

5795 IF tot>=25 THEN GO TÜ 6600 
5797 GO TÜ 5900 

5800 IF nto=l THEN GO TO 5820 
5803 IF ntosp=l THEN GÜ TO 5825 
5806 PRINT AT 11,0;" PUNTO, PIED 
RAS APOSTADAS ,4 ;pu: PAUSE t 
5809 IF pu=Ú THEN GO TO 5850 
5812 IF cantsp>cant THEN PRINT 
AT 11,0;" TE GANO EL PUNT 

O ": LET piesp=piesp+pu+1 

: GO SUB w: PAUSE t: 60 TO 5B90 

5815 IF cant>cantsp THEN PRINT 

AT 11,0;" ME GANAS EL PUNT 

O ": LET pie=pie+pu+l: GO 

SUB w: PAUSE ti GO TO 5890 

5816 IF cantsp=cant AND sp-1 THE 

N PRINT AT 11,0;" TE GANO 

EL PUNTO ": LET piesp=p 

jesp+pu+1i GO SUB w: PAUSE t: GO 
TO 5890 

5817 IF cantsp=cant AND sp—O THE 

N PRINT AT 11,0; *' ME GANA 

S EL PUNTO LET pie=pie 

+pu+l: Gü SUB w: PAUSE t: GO TO 
5890 

5820 PRINT AI 11,Oi" , EL P 
UNTO ES TUYO *'; LEI' pie=p 

ie+1: GU 8ÜB w: PAUSE t: GÜ 10 5 
890 

5825 PRINT AT 11,Oi" EL P 

UNTO ES MIO! LET piesp 

—piesp+1: GO SUB w: PAUSE ts GO 
TÜ 5890 

5850 IF cantsp>cant THEN PRINT 
AT 11,0;" EL PUNTO ES MIO 

LET piesp=piesp+l: G 
O SUB ws PAUSE t: GÜ TO 5890 
5853 IF cant>cantsp THEN PRINT 
AT 11,0;" EL PUNTO ES TUYO 

": LET pie=pie+l: 60 SU 
B w: PAUSE ts GO TO 5890 
5856 IF cantsp-cant AND sp=l THE 
N PRINT AT 11,0;" EL PUN 








TO ES MIÓ LET piesp=p 

iesp+1: GO SUB w: PAUSE t: GO TÜ 
5690 

5859 IF cantsp=cant AND sp=0 THE 
N PRINT AT 11,0;" EL PUN 

TO ES TUYO ": LEI pie=pie 

+li GO SUS w: PAUSE t: GD TO 589 
O 

5890 IF totsp>=25 THEN 60 TO 65 
00 

5895 IF tot>=25 1HEN 60 10 6600 

5900 PRINT AT 11,0; " VAMOS A 

DAR NUEVAS CARTAS 

5910 FOR n=0 TO ó 

5913 PR1N1 AT n,8; PAPER 4;" 

ti 

5919 NEXT n 

5922 FOR n=15 TO 21 

5925 PRINT AT n,8; PAPER 4;*‘ 


6500 PRINT FLASH 1; AT 11,0'; " 

TE HE GANADO LA PARTIDA? ' " 

6503 PAUSE t 
6506 GO TO 7000 

6600 PRINT AT 11,0;" ME HAS 6 
AÑADO LA PARTIDA " 

6603 PAUSE t 
6606 &□ TG 7000 

7000 CLS : PRINT AT 11,0;" JU6 

AMOS OTRA PARTIDA? S/N PAU 

SE O 

7003 IF lNKEYi=,"S" THEN GD TO 1 
00 

7006 IF 1NKEY*="N , ‘ THEN PRINT A 
T 11,0;“ í!ADIOS!!! 

PAUSÉ tí RANDOMIZE US 

R O 

7009 IF 1NKEYS<>"S 1 * GR INKEYSO" 
N" THEN GO TÜ 7000 


5931 NEXT n 
5934 LET sp=sp+l 
5937 IF sp>l THEN LET sp=0 
5940 GO TO 150 
6000 REM RUTINA APARICION 
CARTAS SPECTRUM 
6003 LET 1=0 
6009 FOR n=5 TO 8 
6012 FOR m=I TO 5 
6015 PRINT PAPER 7;AT m,9+l;" 

ti 

6018 NEXT m 


6021 PLÜT 71+8*1,168: DRAW 25,0: 

DRAW 0,-41: DRAW -25,0: DRAW O, 
41 


6024 

IF 

d $ 1 n ) = " 

T|! r li 

THEN* 

LEI 

i nk= 

4 

6027 

i 

IF 

dí (n)= 11 

i 11 

THEN 

LET 

i nk= 

i 

6030 

IF 

d$tn)=" 

m" 

THEN 

LET 

i nk = 

ó 

6033 

IF 

dit n >=" 

\ 11 

THEN 

LET 

i nk= 


r» 


6036 F’RINV PAPER 7; 1NK 0;AT 3, 
9+i;ciín);AT 2,9+1; INK ink;ds(n 
) 

6039 PRINT PAPER 7; INK -ink;AT 
4,11+1;di(n);AT 5,11+1; INK Q;ci 
<n) 

6042 LET 1=1+4 
604.3 BEEP .1,40 
6045 NEXT n 
6050 RETURN 


FIGURA 2 

Tabla de caracteres gráficos 

T I • \JD61D 1112 IUKLf-1 f : 'JOPORSTU 
R & O O EFGHI J K L M N O P O R ST U 


5 

REM CARGADOR DE FIGURAS 

10 

FOR n=6536B TO 65431 

20 

READ 

a 

30 

POKE 

n, a 

40 

NEXT 

n 

50 

SAVE 

"figuras"CODE 65368,64 

60 

n 

DATA 

0,124,124,56,16,16,56, 

70 

DATA 

0,16,16,16,16,56,16,16 

80 

DATA 

0,24,60,60,60,60,24,0 

90 

DATA 

0,96,112,56,28,12,6,2 

100 

DATA 

129,90,36,165,165,36,9 

0, 129 

r 

110 

DATA 

0,46,106,42,42,42,46,0 

120 

DATA 

0,36,108,36,36,36,36,0 

130 

DATA 

0,46,106,34,36, 40, 4t>,0 


i 
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Este programa nos permite dis¬ 
poner de un sencillo procesador de 
textos de uso fácil pero con carac¬ 
terísticas muy potentes. 

Una de las característica más in¬ 
teresantes es que está escrito en 
BASIC usando la ampliación del 
sistema operativo publicada en el 
número 13 de esta misma revista. 
Esto permite usar 64 columnas 


conservando la estructura del BA¬ 
SIC. lo que permite modificar y 
ampliare! programa. 

Su uso es sencillo. Al cargar el 
programa (habiéndolo tecleado y 
salvado previamente con SAVE 
«PROCEX'; LINE 1 > aparece un 
menú principal de ocho opciones. 
La primera entra en el editor. la se¬ 
gunda nos saca el texto por impre¬ 


sora. la tercera borra el texto del 
editor, la cuarta y quinta graban y 
leen el texto de cassette, la sexta es 
un pequeño menú de ayuda, la 
séptima cambia ios colores para 
que sean más agradables a la vista 
y por último la octava termina el 
programa v nos devuelve al BA¬ 
SIC. 

Dentro del editor existen cuatro 
teclas de función (por desgracia las 
Hechas de movimiento no las toma 
en consideración). EDIT vuelve al 
menú principal, CAPS LOCK 
pone en mayúsculas, TRUE VI¬ 
DEO pasa a minúsculas y DELE- 
TE, como es usual, borra el carác¬ 
ter habitual al que se encuentra el 
cursor. 

La salida por impresora está pre¬ 
parada para ZX Printer o GP 50, 
para otras habrá que realizar algu¬ 
nos cambios entre las lineas 420 y 
520. En especial habrá que pasar a 
MODE 0 antes de empezar y 
MODE I al terminar, así como 
sustituir los PRINT por LPRINT 
y modificar los saltos de linea. Esto 
variará con cada impresora y re¬ 
sultará fácil en la mayoria.B 



10 REM P R O C E X 1.9S5 PARA 
ARANA SOFTWARE 

20 LET q=0: LET ant=40000: LET 
fin=40000: LET di rece=40000: GÜ 
TO 50 

30 IF 1>21 THEN CLS : LET 1=0 
: LET c=Q 

40 PRINT “OsAT 0,0;"."s PRINT 
"0;AT 1,0;"LINEA:" ; AT i,7;l;AT 1 
,10;"COLUMNA:"; AT 1.19:c;AT 1,23 
;"DIRECCION:";AT 1,34; di r ecc ;AT 
1,40;"Operación:ESCRIBIR TEXTO"; 
RETURN 

50 MODE 1 

60 PAPER 1: BORDER 1; INK 7: C 
LS 

70 POKE 23658,0; LET 1=0: LET 
c=0: LET direcc=4ÜOOO 

SO PRINT AT 1,17; BRIGHT 1; FL 
ASH 1;" MENU GENERAL DE OPCIONES 

n 


90 PRINT AT 3.17;"i.- ESCRIBI 
R TEXTO";AT 5,17;"2,- IMPRESORA 
AT 7,17;"3.- BORRADO DE TEXT 
O";AT 9,17;"4.- SAVE";AT 11,17; 
"5.- LOAD";AT 13,17;"6.- INFOR 
MAC ION 11 ; AT 15, 17; "7.— CAMBIO CO 
LORES";AT 17,17; n B.- SALIDA PRO 
GRAMA" 

100 PRINT AT 21,0; INVERSE 1;" 

P R O C E X ÍC) José Antoni 

o Rodríguez 85 Ver. 1,0 " 

110 LET mem=(PEEK 23730+<256*PE 
EK 23731)Í-ÍPEEK 23653+<256#PEEK 
' 23654)): PRINT AT 19,50;"MEMORI 
A:"; BRIGHT 1;mem 
120 PRINT A 0;AT O,O;"Operación: 
”; BRIGHT 1;"MENU GENERAL 
Pulsa una opcionPAUSE O: LET 
a$=INKEY$ 

130 IF a$<"I“ OR a*>"8" THEN G 
O TO 120: ELSE LET a=VAL a$ 


6 ! 



















140 ÜN a G0 TO 150,420,530.620, 
710,770,020,870 
150 REM ESCRIBIR TEXTO 
160 LET direcc=tin+i: CLS 
170 POKE 23656,0: PRINT *0;AT O 
, O; "- 


—[_-» 

160 GO SUB 8B0 

190 PRINT AT 1,c;: BEER .01, 


200 PRINT ^0;AT 1,0;"Linea:";AT 
1,7;1;AT 1,lÓ;"Columna:";AT 1,1 
9; c; AT 1,23; "DIRECCION: 11 ; AT 1,34 
; di rece; AT 1,40; "Operaci on: ESCRI 


BIR TEXTO" 

210 PAUSE O: LET 
BEER .01,0 
220 IF a=6 THEN 
PRINT ^0;AT 0,62; 
230 IF a=4 THEN 


a=CODE INKEYÍ; 

POKE 23658,8: 
INVERSE 1; " C” 
POKE 23658,0: 


PRINT Jl 0; AT 0,62; 
240 IF a=7 THEN 
250 IF a<12 THEN 
260 IF c>63 THEN 
1= L +1: GO SUB 30: 
270 IF c=60 THEN 
280 IF a=13 THEN 
" ": LET c=0: LET 


INVERSE 1; ”L' 1 
CLS : GO TO 60 
60 TD 210 
LET c=0: LET 
GO TO 300 
BEEP .02,30 
PRINT AT l,cj 
1=1+1: POKE d 


irecc,13: LET direcc=direcc+l: P 
RINT ^0;AT 1,7;1; M ”: GD SUB 30: 
PRINT AT 1,c;"_"; GO TO 210 
290 IF a=12 THEN GO TO 350 
300 PRINT AT l,c;CHR$ a; 

310 POKE direcc,a: LET direcc=d 
irecc+1; LET c=c+í 
320 LET -Fin=direce 
330 PRINT A 0;AT 1,7;1;" “;AT 1, 
19;c;" ”;AT 1,34:di rece;" " 

340 GO TO 210 

350 LET c=c-1 AND c>0: PRINT AT 
l,c;"_ "; : LET di recc=direcc'-l 
360 IF 1<=Ü THEN* LET 1=0 
370 PRINT a O; AT 1,7; i; 1 ’ "; AT 1, 
19;c:" ";AT 1,34;direces" " 

330 IF direcc<40000 THEN LET d 
i rece=40000 


390 IF c=0 AND 1>0 THEN PRINT 
AT 1,c;" LET c=63: LET 1=1-1 
AND 1>0: GO TO 350 


400 GO TQ 210 
410 PAUSE Os STOP 
420 REM IMPRESOftA 
430 CLS : PRINT AT 0,0; 

440 LET c=0: LET 1=0: FOR n=400 
00 TO Fin 

450 IF PEEK n = 13 THEN LET 1=1+ 
1: LET c=0 

460 IF 1>21 THEN CLS : LET 1=0 
: LET c=G 

470 PRINT AT l,e;CHR* (PEEK n): 
LET c=c+l 

480 POKE 23692,255 
490 IF c>63 THEN LET c=0: LET 
1=1 + 1 

500 IF 1>21 THEN CGPY : CLS : 
LET 1=0: LET c=0 
510 NEXT n: COPY 
520 CLS : GO TO 60 
530 REM BORRADO DEL TEXTO 
540 BORDER 2: PAPER 2: INK 7: C 
LS 

550 PRINT BRIGHT 1; FLASH 1;AT 
10,20;"BORRADO DEL TEXTO" 

560 INF'UT "Con-firmaciDn de la o 
rden (Si/No) ",,,,a$ 

570 IF a$="NO ! ‘ OR at="nD'' OK aí 
= "No" OR a4>= ,, n M THEN CLS : GO T 
O 60 

580 IF a$="Si " OR a$= ,1 si" OR a$ 
="31" OR a$="s" THEN FOR n=4000 
O TO 41000: POKE n,0: PRINT AT 2 
1,O;41000—n;" ": NEXT n: LET di 

recf=40000 
590 LET fin=40000 
600 BORDER 7: PAPER 7: INK O: C 
LS : PRINT AT 10,20; BRIGHT 1; F 
LASH 1;"BORRADO COMPLETO" 

610 BEEP 2,0: PAUSE 100: BORDER 
1: PAPER 1; INK 7; CLS : GO TO 
60 

620 REM SAVE a cassette 

630 BORDER 5: PAPER 5: INK Oí C 

LS 

640 INPUT "Nombre para SAVÉs",, 

» » » j 

650 PRINT AT 10,20; BRIGHT i; F 
LASH l;"GRABACION TEXTO";AT 12,2 
O;"PULSA UNA TECLA" 

660 PRINT AT 14.20:"Tome nota: 


I* 















raptos 




;AT 16,20;"LONGITUD:ífin-40000 
): BEEP 3,0 

670 SAVE a*CGDE 40000,<fÍn-400Q 
Oí 

680 CLS : PRINT AT 10,20; BRIGH 
T 1; FLASH 1 í"GRABACION EFECTUAD 
fi":AT 12,20;"QUIERES EFECTUAR VE 
RIFV“: PAUSE O 

690 IF INKEY*="5" THEN VERIFY 
a$CODE 40000. <f in-40000) : CLS : 
BOftDER 1: PAPER 1: INK 7: PRINT 
AT 10,20; BRIGHT 1; FLASH 1;"VER 
IFY CORRECTO": BEEP 1,30: CLS : 
SO TO 60 

700 BORDER 1: PAPER 1: INK 7: C 
LS : GO TO 60 

710 REM LOAD desde cassette 
720 BORDER 1: PAPER 1: INK 7: C 
LS 

730 INPUT "LONGITUD:long 
740 PRINT AT 10,20; BRIGHT 1; F 
LASH 1INTRODUCE LA CINTA";AT 1 
2,20;"Y PULSA PLAY.": LOAD ""COD 
E 40000,lona 
750 LET Tin—40000+1ong 
760 CLS : 60 TO 60 
770 REM INFORMACION 
780 CLS : PRINT AT 0,0;"Informa 
cían:’"Las funciones de las t 
eclas en el editor son las siguí 

entes: " * 7 11 CAPS SHIFT + 1 <ed 

it), . Vuelve al MEN 

U CAPS SHIFT + 2 <ca 

ps 1 ock) . . .. MAYUSCULAS 

CAPS SHIFT + 3 (tr 

ue video),. MinLtsculas 

CAPS SHIFT + O (de 

1 ete) . . . . .. Borrado 

ENTER. 

. NUEVA LINEA" 

790 PRINT ’'" OPCIONES DE 

L EDITOR" ” "1.- Editor 64 ctes"' 
“2.- Impresión Borrado de 

1 texto" f "4.- Grabación texto" 5 " 
5.- Carga del texto** 5 “6. - Inform 
ación"’"7.- Cambio de los colore 
s (O a 7)"'"8.- SALIDA del progr 
ama " 

800 PRINT AT 21,0; INVERSE 1; B 
RIGHT 1;" Pulsa una tecla para 


volver al MENU GENERAL □ C para 
COPY ": PAUSE O: IF INKEY*=" 
c" OR INKEY$="C" THEN COPY : CL 
S : GG TO 60 
810 CLS ; GO TO 60 
820 REM CAMBIO DEL PAPER E INK 

830 CLS : FOR n=0 TO 7: PRINT A 
T n+5,5; INK n;"ABCDEFGHIJKLMNOP 
QRSTUVWXYZ";AT n+5,40; INK 7;" > 
"; n: NEXT n 

840 PRINT AT 17,10;"Color del P 
AREL (paper) ": BEEP 1,2: PAUSE 

O: LET a*=INKEY$: IF a$<"0" OR a 
$>"7" THEN GO TO 840: ELSE LET 
paper=VAL a$ 

B50 PRINT AT 17,10;"Color de la 
tinta (INK) BEEP 1,0: PAUSE 
O: LET a*=INKEYÍ: IF aS<"0" OR a 
$ >"7" THEN GO TO 840: ELSE LET 
ink=VAL a$ 

860 BORDER paper: PAPER paper: 
INK ink: CLS : 60 TÜ 60 
870 CLB : BORDER 7: PAPER 7: IN 
K O: CLS : MQDE O: BEEP .2,20: S 
TOP - 

880 LET c=0: LET 1=0: PRINT AT 
0,0;: FQR n=40000 TÜ fin 
890 IF PEEK n=13 THEN LET 1=1+ 

1; LET c=0 

900 IF I>21 THEN CLS : LET 1=0 
: LET c=0 

910 IF c>63 THEN LET c=0: LET 
1 = 1+1 

920 PRINT AT l,c;CHR$ (PEEK n): 
LET c=c+l 

930 PGKE 23692,255: 

940 IF c>63 THEN LET c=0; LET 
1 = 1+1 

950 NEXT n 
960 RETURN 
970 ON ERR L 

980 BEEP .4,0: CLB : PRINT AT 1 
0,20; BRIGHT 1; FLASH 1;"»>»>E 

RROR<<<<<< " 

990 FOR n=l TO 100: PAUSE 2: NE 
XT n: CLS : GO TO 60 
1000 SAVE "PROCEX" LINE 10: VERI 
FY ""i STOP 
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SERVIDO DE EJEMPLARES ATRASADOS 


Complete su colección de 

kdospectrun 

A continuación le resumimos el contenido de los ejemplares 
aparecidos hasta ahora. 


Núm, 1 * 250 pts. 

Cómo usar el microdrive/Progra- 
mación Basic/Ampl ración Basicare/ 
Rutina despertadar/Variabies del Sis¬ 
tema/Entrada datos mediante másca- 
ras/Proteccióm del software/Sintoni- 
ce su Spectrum/Programas 


Núm, 3 *250 pts. 

Mocedades sonimag 34/Ampiiandü el 
Basic/Programas para ordenar pro^ 
gramas/Gráficos con el VU-3D/Len- 
guaje Forth/Archivos en microdrive/ 
Programación de un interface de irn- 
presora/Prog ramas. 


Núm. 5 *250 pts. 

Floppys para Spectrum/ Diseño asis¬ 
tido por ordenador/64 Caracteres por 
linea/Juego de la vida/Pascai/Asi ha¬ 
cemos las portadas/Control de eva- 
luaciones/Programas. 


Núm* 2 *■ 250 pts. 

Gráficos profesión a les/Despiaza- 
miento pixel a pixel/Utilización de 
rutinas/Construcción del interface 
centronics/Programas de utilidad pa¬ 
ra microdrive/Rutina reset en código 
máquinaMnálisis del editor de textos 
Tasword/lnterfaces para impresoras/ 
Programas. 

Núm. 4*250 pts. 

De profesión: programador/Consofa 
para el Spectrum/Comparación códi¬ 
go máquina-Basic/Análisrs programa 
contabilidad /Calendario/Pascal/Pro- 
gramas. 


Num, 6*250 pts. 

Representación de íunciones/Todos 
ÉOS caminos conducen a la ROM/Jue- 
gos/PascaVConstrucción de un lápiz 
Óptico/Programas de gestión. El SITI/ 
Logo: tortugas para todos/lnterrup- 
ciones del Z-SO/Programas. 
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para íinipliiir el BASIC 
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DISPONEMOS DE TAPAS ESPECIALES PARA 

SUS EJEMPLARES DE 




Mespectrun 

SIN NECESIDAD DE ENCUADERNACION 


pREC'O 


UVÁIÓAD 


600 p^ 


üMtespectrun 


(cada tapa es para 6 ejemplares) 


Para hacer su pedido, rellene este cupón HOY MISMO 
y envíela a: 

Bravo Murillo, 377 
Tel, 733 96 62 - 23020 MADRID 

^ ~ ' ' 

Ruego me envíen los siguientes ejemplares atrasados de TODOS- 
PECTRUM ..al precio de 250 pts. 

Por favor envíenme . tapas para la encuademación de mis 

ejemplares de TODOSPECTRüM, al precio de 600 pts. más gastos de envío. 
El importe lo abonaré 
□ POR CHEQUE □ CONTRA REEMBOLSO O CON MI TARJETA DE 
CREDITO □ AMERICAN EXPRESS □ VISA O INTERBANK 

Número <te m¡ tarjeta; I I I I I i I I II I | I | I I ~T1 1 I 1 i HIT 

Fecha de caducidad .... Firma 


NOMBRE . ,*,,**..**, .*.. 

DIRECCION ... 

CIUDAD ..,...C, 

PROVINCIA . . .... 























<- Aunque hace tiempo que poseo 
mi ordenador Sinclair QL. en el 
número 15 de su revista, más con¬ 
cretamente en la sección dedicada 
a dicho ordenador, se citan algunas 
estructuras de las que ciertamente 
no tenía conocimiento, tales como 


WHEN EOF... END WHEN y 
WHEN ERRor... END WHEN. 
desearía pedirles que a ser posible 
me proporcionasen una descrip¬ 
ción más detallada de dichas es¬ 
tructuras. Gracias anticipadas por 
su colaboración. 


Sergio Montoro 
Madrid 


Muchos lectores han manifes¬ 
tado un interés similar sobre estas 
estructuras V sobre su modo de 
uso. por lo que pasaremos a descri¬ 
birlas brevemente, no sin antes de¬ 
cir que la razón de que no estén 
documentadas en el manuales que 
su funcionamiento no es del todo 
correcto y a veces dan problemas, 
por lo que su uso debe hacerse con 
mucho cuidado. 

La instrucción WHEN ERRor 
ESD WHEN se utiliza para de¬ 
tectar errores y corregirlos. Se debe 
situar al principio del programa de 
modo que el ordenador se «entere» 
de su existencia antes de producir¬ 
se el error. Cuando se produce el 
error, el ordenador en lugar de pa¬ 
rarse salta a esta rutina y después 
de ejecutarla salta a la instrucción 
siguiente a la que produjo el error. 
Dentro del H H EN ERR es nece¬ 
sario saber qué tipo de error se ha 
producido y dónde, de modo que 
podamos corregirlo. Para ello exis¬ 
ten dos variables. ERR_LIN nos 
da la linea que ha producido el 
error y ERR-NL'M tla el número 
de este según la tabla que aparece 
al final del manual. 

La otra estructura es WHEN 
EOF...END WHEN. Está destina¬ 
da a ser usada aI leer ficheros y 
hará que el programa salte a ella 
cuando intentemos leer de un fi¬ 
chero y no haya más datos en este. 
Al igual que en el caso anterior 



debe estar situada antes de ¡a ope¬ 
ración de lectura de ficheros. 

Esperemos que con esta explica¬ 
ción queden aclaradas todas las 
dudas de estas estructuras, y recor¬ 
damos, una ver más, que si no 
aparecen en el manual es porque 
no funcionan dei todo bien, por lo 
que se debe tener mucho cuidado 
en su uso. 


0 Me gustan mucho los comenta¬ 
rios sobre hardware comercial, 
pero me gustaría que. además de 
seguir criterios de actualidad, los 
hicieran con un poco de orden, 
como ya empezaron a hacer {¿por 
qué no han seguido?) con los lápi¬ 
ces ópticos, para poder comparar 
unos con otros. A ver cuándo pu¬ 
blican comentarios sobre impreso¬ 
ras e interfaces Centronics. 

Otro tema que me parece muy 
interesante y del que tampoco han 
hablado es sobre los fallos de la 
ROM del Spectrum y que. a pesar 
de lo bien realizada que está, se les 
colaron una buena cantidad; por 
ejemplo, de los que habla el doctor 
lan Logan en su libro The comple¬ 
te Spectrum ROM disassembly so¬ 


bre el manejo del número 65535. o 
los que se producen cuando se em¬ 
plean potencias (todo lo relaciona¬ 
do con ellas, también se producen 
con SQR o FN) o los fallos de 
SCREENS o VAL. 

Francisco Romero 
Madrid 

Tomamos nota de todas tus su¬ 
gerencias y deseos para con nues¬ 
tra revista y esperamos en breve los 
veas cumplidos. En lo referente a 
los lápices ópticos, el paro momen¬ 
táneo de la serie que les veníamos 
dedicando ha sido motivado por el 
simple hecho de que no dispone¬ 
mos de otros modelos de este peri¬ 
férico. y es evidente que no pode¬ 
mos hacer una critica de un pro¬ 
ducto que no tenemos delante. En 
cuanto las casas distribuidoras co¬ 
rrespondientes se decidan a pro¬ 
porcionárnoslos. prometemos con¬ 
tinuar tratando este interesante 
lema. 

En cuanto a las erratas de la 
ROM. estamos de acuerdo contigo 
en que. aunque no sean muchas, es 
un tema que vale la pena conocerá 
fondo. No es esta, en todo caso, la 
sección apropiada para tratar un — 
tema tan extenso, por lo que ha- I 
brás de esperar a que podamos VI 
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abrirle un hueco en la revista en 
alguno de los números siguientes. 


Felicito a esta revista y al autor 
del programa publicado en el n.° 
13 con el nombre de «Un nuevo 


operativo para el Spectrum», que 
incluye siete nuevos comandos al 
BASIC de éste. Lo considero de 
gran calidad, y además eleva al 
BASIC del Spectrum al nivel de 
otros ordenadores de mayor precio 
y calidad. No obstante, al verlo, 
eché de menos el comando DELE- 
TE, que, como ya sabrán, sirve 
para borrar bloques de programa 
BASIC. Su sintaxis habitual suele 
ser: 


DELETE n I ,n2 

siendo ni el número de la primera 
linea que se desea borrar y n2 el de 
la última linea que ha de ser borra¬ 
da. 

Mis precarios conocimientos so¬ 
bre código máquina me impiden la 
realización de este implemento, 
pero envío mi propuesta a su autor 
o a cualquier hábil programador 
para que se anime a incorporar 
este comando al ya potente progra¬ 
ma de Manuel Arana. 


Fernando Corres 
Vitoria (Alava) 


Gil Transmitimos desde estas li¬ 
neas tu petición a todos nuestros 
lectores y les pedimos que se ani¬ 
men a comunicarnos cualquier 
modificación o implemento de in¬ 
terés general, que pueda mejorar, 
no sólo este, sino también a¡ resto 
de los programas que mes a mes 
venimos publicando. Caso de que 
algún amable lector haga eco a 
esta llamada, prometemos darle 
prioridad para que sea publicada 
en esta misma sección lo antes po¬ 
sible. 


mandos que especifica el manual, 
permite usar CLS especificando el 
canal en que se desea el borrado. 
Lo he probado con el canal 2 para 
la pantalla principal y con el 0 y 1 
para la parte baja y no funciona. 
¿A qué se debe esto? 

Juan Luis Berenguer 
Agua fría (Almería) 


L*J En efecto, el Interface 1 incor¬ 
pora no ya uno sino dos nuevos co¬ 
mandos que no aparecen en el ma¬ 
nual: CLS$ y CLEARS, pero en 
ellos no podrás especificar el nú¬ 
mero del canal, ya que su cometi¬ 
do es el siguiente: 

CLS$ (sin nada detrás) borra el 
contenido del archivo de presenta¬ 
ción visual y coloca los cursores de 
alta y baja resolución a sus respec¬ 
tivas esquinas (hasta aquí lo mis¬ 
mo que CLS), pero además coloca 
en las correspondientes variables 
del sistema y en la totalidad del ar¬ 
chivo de atributos lo mismo que si 
se hubiera inicializado la máquina. 
Es decir pone BORDER 7, PA¬ 
PER 7, INK 0, FLASH 0 e IN¬ 
VERSE 0. Las aplicaciones son 
obvias, por lo que sobran los co¬ 
mentarios. 

CLEARS (también sin nada de¬ 
trás) cierra todas las corrientes que 
hubiéramos abierto y restablece 
las que van del 0 al 3 a los canales 
asignados habitualmente (como si 
acabáramos de conectar el ordena¬ 
dor) pero respetando las variables 
y el archivo de pantalla. ¡Ojo!, este 
comando no debe utilizarse nunca 
como sustituto de GLOSES, ya 
que los datos qpe se encuentren en 
un bufl'er a medio llenar se perde¬ 
rían sin llegara su destino. 



Me han dicho que el Interface 
1, que poseo desde hace unos me¬ 
ses, además de añadir todos los co- 
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REGALE UNA IMPRESORA A SU ORDENADOR 



GP SO La pequeña 50 cps. Papel normal con interfaces paralelo, serial y spectrum.. 1 9.900 ptas, 

SP BOQ * La perfección 96 cps. Introductor automático hoja a hoja 24 cps, en alta calidad .. 64.900 ptas, 

SP 1000 * La programante tOO Cps. 95 Cárt. programabas en RAM. Introductor hoja a hoja 24 cps, en alta calidad .. 69 900 ptas. 

SP 1000 AS La orogramable 100 cps, 96 cart. programadles en RAM. con interface RS232. 59.900 ptas, 

GP 700 * Le de color 50 cps 7 colores, 80 columnas. Tracción y fricción. Papel de 10 pulgadas__ 69 900 ptas, 

BP 5200 ' La de oficina 200 cps. 106 cps en alta calidad, Buffer 4K. Introductor automático de documentos {Opc). + . + 219.900 ptas. 
BP 5420 * La mas rápida 400 cps. 106 cps en alta calidad, Buffer de 18K. Paralelo y RS232. 319900 ptas. 


Interfaces Se-e RS232C, Specírum, IBM CQMMODQRE. MSX, QL, Apple Macintosh, HP-IB 
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